Сформировать массив из 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]>0 then  s:=s+a[i];

writeln(\'s=\',s);

for i:=1 to 10 do

if a[i]<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.