В одномерном массиве, вводимом с клавиатуры и состоящем из 10 вещественных элементов, вычислить:

1) номер максимального по модулю элемента массива;

2) сумму элементов массива, расположенных после первого положительного элемента.

Program n1;

const n=10;

var a: array[1 ... n] of real;

sum: real;

i, i2: integer;

b: boolean;

begin

i2:=1;

b:=false;

for i:=1 to n do begin

readln (a[i]) ;

if abs (a[i]) >abs (a[i2]) then i2:=i;

end;

writeln ('номер максимального по модулю: ', i2) ;

sum:=0;

for i:=1 to n do

begin

if b=false then

begin

if a[i]>0 then b:=true;

end

else

sum:=sum+a[i];

end;

writeln ('сумма: ', sum) ;

end.