Дан массив С15. Найти произведение ненулевых элементов. Язык Паскаль

2

Ответы и объяснения

2013-02-07T08:50:56+00:00

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.

  • fegh
  • новичок
2013-02-07T16:06:53+00:00

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.