Задать массив из 10 чисел с клавиатуры ,подсчитать произведение положительных элементов массива.
ПОМОГИТЕ,УМОЛЯЮ!!!

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

Задать массив из 10 чисел с клавиатуры ,подсчитать произведение положительных элементов массива.
ПОМОГИТЕ,УМОЛЯЮ!!!

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

uses Crt;

Const

   N = 10;

Var

   A:array[1..N] of integer;

   i:integer;

   P:real;

Begin

ClrScr;

P:=1;

Write(‘Введите массив A(‘,N,’): ‘);

For i:= 1 to N do

    Begin

    Read(A[i]);

    if A[i] > 0 then P:=P*A[i];

    End;

Write(‘P = ‘,P);

ReadLn;

End.