Дан массив С15. Найти произведение ненулевых элементов. Язык Паскаль

Question

Информатика

Евдокиюшка

21 мая, 08:57

Дан массив С15. Найти произведение ненулевых элементов. Язык Паскаль

+3

Ответы (1)

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

Митяха · Answer 1

uses crt;

var

max, i, n, k : integer;

m: array [1 ... 100] of integer;

begin

readln (n) ;

k: = 1;

for i:=1 to n do

read (m[i]) ;

for i:=1 to n do

if m[i]>0 then begin k: = k*m[i]; end;

writeln;

writeln (k) ;

readkey;

end.