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

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.