Question

ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА . Задача:Сформировать массив из 10 произвольных чисел. Определить сумму положительных, произведение отрицательных и количество нулевых элементов этого массива. Pascal ABC.

Answer 1

var a:array[1..10] of integer;
k,s,p,i:integer;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(21)-10;
if a[i]>0 then s:=s+a[i]
else if a[i]<0 then p:=p*a[i]
else inc(k3);
write (a[i]:4);
end;
writeln ('Сумма положительных=',k1);
writeln ('произведение отлицательных=',k2);
writeln ('кол-во нулевых=',k3);
end.