Решить в паскале. Задан массив А(1:20). Найти произведение всех его ненулевых элементов.
Решить в паскале. Задан массив А(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.
Не нашли ответ?
Похожие вопросы