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

program zz1;

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

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

m:array [1 ... n] of integer;

begin

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

m[i]:=random (14) - 5;

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

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

for i:=1 to n do / / находим первый положительный элемент

if m[i]>0 then begin k1:=i; k:=k+1; break; end;

for i:=k1+1 to n do / / находим второй положительный элемент

begin

if m[i]>0 then k:=k+1; if k = 2 then begin k2:=i; break; end;

end;

for i:=k1 to k2 do / / организуем цикл

s:=s+m[i];

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

end.