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

Question

Информатика

Альбинка

20 мая, 03:12

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

+4

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