Решить в паскале. Задан массив А (1:20). Найти произведение всех его ненулевых элементов.

Question

Информатика

Машута

7 января, 19:16

Решить в паскале. Задан массив А (1:20). Найти произведение всех его ненулевых элементов.

+3

Ответы (1)

Знаете ответ?

Галуха · Answer 1

Program t1;

const

n=20

var

i, x, s : integer;

t: string;

m1: array [1 ... n] of integer;

begin

s : = 1;

for i : = 1 to n do

begin

x : = m1[i];

if (x 0) then s : = s * x;

end;

writeln ('Ответ ', s) ;

end;

end.