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

Question

Информатика

Филофей

31 октября, 19:04

Дан массив С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.