Паскаль.

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

Question

Информатика

Греция

24 марта, 12:21

Паскаль.

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

+3

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