Паскаль.

Вычислить произведение элементов Р[1 ... 20] больших 0.

Question

Информатика

Мисаил

5 сентября, 11:13

Паскаль.

Вычислить произведение элементов Р[1 ... 20] больших 0.

+2

Ответы (1)

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

Калуф · Answer 1

Program i13;

var

proisv, p, i:integer;

a:array[1 ... 20] of integer;

begin

readln (p) ;

proisv:=1;

for i: = 1 to p do

if a[i]>0 then

proisv:=proisv*a[i]

writeln (proisv) ;

end.

Паскаль.Вычислить произведение элементов Р[1 ... 20] больших 0.

Паскаль.

Вычислить произведение элементов Р[1 ... 20] больших 0.