Дан одномерный массив, состоящий из вещественных элементов. Найти сумму элементов массива, расположенных до последнего положительного элемента.

program zz1;

const n = 50; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of real; s:real;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (21) - 10+random;

for i:=1 to n do / / выводим полученный массив на экран

write (m[i]:8:2);

writeln; / / переходим на новую строку для вывода ответа

for i:=n downto 1 do

if m[i] > 0 then begin k:=i; break; end; / / находим последний положительный элемент

for i:=1 to k do

s:=s + m[i];

writeln (' сумма элементов массива, расположенных до последнего положительного элемента = ', s); / / выводим ответ

end.