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

Question

Информатика

Кося

14 января, 13:30

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

+1

Ответы (1)

Знаете ответ?

Колюха · Answer 1

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.