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

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]<br>else inc(k3);
write (a[i]:4);
end;
writeln ('Сумма положительных=',k1);
writeln ('произведение отлицательных=',k2);
writeln ('кол-во нулевых=',k3);
end.

Comments

большое спасибо :)

---

Аленусик. Можно вопрос, почему после проверки программы выдаёт ошибку.
НЕИЗВЕСТНЫЙ ИНДEТИФИКАТОР n
Почему так?

---

а ну да, я забыла, в общем начало программы исправь const n=10; var a:array [1..10] of integer;