Водномерном массиве, состоящем из 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.

в десятеричной системе: (^ - степень)

1 * 10^4 + 3 * 10^3 + 4 * 10^2 + 7 * 10^1 + 2 * 10^0

Объяснение: