Сформировать массив из 10 произвольных чисел. Определить сумму положительных, творение отрицательных

Обозначим массив из 10 чисел буковкой а. Порядковый номер частей массива буквой i, значения элементов массива a[i],  s сумму положительных частей массива, p произведение отрицательных частей массива, k количество нулевых частей массива. Будем использовать оператор цикла с параметром for. Так как у нас 10 частей массива, то параметр i будет изменяться от 1 до 10. В условии задачки не обозначено, на каком промежутке нужно сформировать массив. Можно брать любой просвет [a;b]. Тогда значения частей массива будем вычислять по формуле: a[i]=random (b-a+1)-а

Сформируем массив случайным образом, к примеру, на промежутке [-10;10]. Тогда программка на языке программирования Pascal  ABC может выглядеть так:

program zadacha;

uses crt;

var i,k,s,p:integer;

a:array[1..10] of integer;

begin

s:=0; p:=1; k:=0;

for i:=1 to 10 do  begin

a[i]:=random(10+10+1)-10;

write(a[i], );

end;

writeln;

for i:=1 to 10 do

if a[i]gt;0 then  s:=s+a[i];

writeln(s=,s);

for i:=1 to 10 do

if a[i]lt;0 then  p:=p*a[i];

writeln(p=,p);

for i:=1 to 10 do

if a[i]=0 then  k:=k+1;

writeln(k=,k);

end.