В одномерном массиве, вводимом с клавиатуры и состоящем из 10 вещественных элементов, вычислить:
1) номер максимального по модулю элемента массива;
2) сумму элементов массива, расположенных после первого положительного элемента.

Program n1;const n=10;var a: array[1..n] of real;sum: real;i, i2: integer;b: boolean;begini2:=1;b:=false;for i:=1 to n do beginreadln(a[i]);if abs(a[i])>abs(a[i2]) then i2:=i;end;writeln('номер максимального по модулю: ',i2);sum:=0;for i:=1 to n dobeginif b=false thenbeginif a[i]>0 then b:=true;endelsesum:=sum+a[i];end;writeln('сумма: ',sum);end.