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

Question

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

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.