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

1) Максимальный по модулю элемент массива

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

Буду очень благодарен, если сделаете это задание!

Program E04;

uses crt;

var

n, i, k, f: integer;

X: array[1 ... 50] of real;

Max, S: real;

begin

clrscr;

writeln ('Введите размерность: ') ;

readln (n) ;

writeln ('Введите массив: ') ;

for i:=1 to n do

begin

write ('X[', i:2,'] = = > ') ;

readln (X[i])

end;

writeln ('Исходный массив: ') ;

for i:=1 to n do

write (X[i],' ') ;

writeln;

Max:=abs (X[1]) ;

for i:=1 to n do

if Max < = abs (X[i]) then

Max:=abs (X[i]) ;

writeln ('Максимальный элемент по модулю: ', Max) ;

i:=1;

while (i < = n) and (X[i] < = 0) do

i:=i+1;

if i > n then

writeln ('folse')

else

begin

k:=i;

i:=i+1;

while (i < = n) and (X[i] < = 0) do

i:=i+1;

if i > n then

writeln ('folse')

else

begin

f:=i;

for i : = k + 1 to f - 1 do

S:=S+X[i];

writeln ('Сумма: ', S:5:2) ;

end;

end;

end.