Сформировать массив из 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.