Код:
Const
Nmax=7;
Var
A:Array[1..Nmax] of Integer;
m,n,i:Integer;
f:Text;
Begin
Write('m= ');
Readln(m);
Assign(f,'mass.dat');
Reset(f);
for i:=1 to m do
Read(f,A[i]);
Close(f);
Writeln('Array A:');
for i:=1 to m do write(A[i]:4);
Writeln;
Writeln('Numbers of elements < last');
n:=0;
for i:=1 to m-1 do
if A[i]<A[m] then
begin
write(i:4);
Inc(n);
end;
Writeln;
Writeln('The quantity of such elements:');
Writeln(n);
Readln
End.