Разработка и реализация программ с массивами, страница 4

max:=a[1];

k:=1;

for i:=1 to n do

 if a[i]>max then

  begin

  max:=a[i];

  k:=i;

  end;

for i:=1 to k-1 do

if a[i]>0 then summa_pol:=summa_pol+a[i];

writeln('summa polojitelnih elementov= ',summa_pol:0:2);

for i:=1 to n do

b[n+1-i]:=a[i];

for i:=1 to n do                                            a[i]:=b[i];                                                     

for i:=1 to n do                                            

write(a[i]:0:2,' ');                                          readln;

end.

Результат:  10

9 -1 0 -3 -8 22 5 -16 0

произведение отрицательных: 384

положительных до наибольшего: 11