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