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.

Answer 2

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

Answer 3

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