Паскаль.

В одновременном массиве найти произведение ненулевых элементов.

Question

Информатика

Киля

13 февраля, 14:48

Паскаль.

В одновременном массиве найти произведение ненулевых элементов.

+4

Ответы (1)

Знаете ответ на вопрос?

Евдения · Answer 1

Program proizv;

var i, n, p:integer; a:array[1 ... 10] of integer;

begin

p:=1;

writeln ('Введите кол-во элементов') ;

readln (n) ;

for i:=1 to n do

begin

writeln ('Введите число') ;

readln (a[i]) ;

If a[i]0 then

p:=p*a[i];

end;

writeln ('p=', p) ;

end.

Паскаль.В одновременном массиве найти произведение ненулевых элементов.

Паскаль.

В одновременном массиве найти произведение ненулевых элементов.