Помогите сделать до завтра, пожалуйста, очень срочно!!!
Вычислить произведение положительных элементов массива состоящего из 10 элементов заполненных случайными числами от -100 да +100. В паскале.

Вопрос школьника по предмету Информатика

Помогите сделать до завтра, пожалуйста, очень срочно!!!
Вычислить произведение положительных элементов массива состоящего из 10 элементов заполненных случайными числами от -100 да +100. В паскале.

Ответ учителя по предмету Информатика

const n=10;

var a:array[1..n] of integer;

i:integer; p:real;

begin

Randomize;

writeln(‘Массив A:’);

for i:=1 to n do

 begin

 a[i]:=random(201)-100;

 write(a[i]:4);

 end;

writeln;

p:=1;

for i:=1 to n do

 if a[i]>0 then p:=p*a[i];

writeln(‘p = ‘,p:9:0);

end.

Пример:

Массив A:
-34 58 -9 -15 -37 57 -9 22 69 43
p = 215795844