Дан массив из десяти целых чисел:2; -3; 5; 0; 7; -4; 1; -1; -6; 9. Найти произведение ненулевых элементов массива

Вопрос от пользователя: Лила

Дан массив из десяти целых чисел:{2; -3; 5; 0; 7; -4; 1; -1; -6; 9}. Найти произведение ненулевых элементов массива

Ответ: Любомира

Var

a:array[1 … 10] of integer;

i, d:integer;

begin

d:=1;

for i:=1 to 10 do begin

writeln (i,’ число массива = ‘);

read (a[i]);

if (a[i]0) then d:=d*a[i];

end;

writeln (‘ Произведение равно ‘, d);

end.