Uses
CRT;
var
a:array[1..100] of integer;
i,ind,m,imax:integer;
sum:real;
begin
clrscr;
randomize;
write('M: ');
readln(m);
imax:=1;
ind:=0;
for i:=1 to m do
begin
a[i]:=random(10)-3;
write(a[i]:3);
if a[i]>a[imax] then
imax:=i;
if a[i]>0 then
ind:=i;
end;
writeln;
writeln('MAX[',imax,']:=',a[imax]);
if ind=0 then
writeln('Нет положительных')
else
if ind=1 then
writeln('Перед ним нет элемента')
else
begin
sum:=0;
for i:=1 to ind-1 do
sum:=sum+a[i];
write('Sum:=',sum)
end;
readkey
end.