Паскаль.

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

Question

Информатика

Лукаря

22 марта, 21:14

Паскаль.

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

+3

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

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

Паскаль.

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