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

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.

Оцени ответ
Не устраивает ответ?

Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку