Ответы
Ответ дал:
0
var
c : array [1..15] of real;
s : real;
i : byte;
begin
s := 0;
for i := 1 to 15 do read (a[i]);
for i := 1 to 15 do
if a[i] <> 0 then
s := s * a[i];
writeln (s);
end.
Ответ дал:
0
var
c : array [1..15] of real;
s : real;
i : byte;
begin
s := 1;
for i := 1 to 15 do read (a[i]);
for i := 1 to 15 do
if a[i] <> 0 then
s := s * a[i];
writeln (s);
end.
Вас заинтересует
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад