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

Question

Информатика

Вилен

24 декабря, 11:31

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

+3

Ответы (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.