Дан массив С15....

Тема в разделе "Информатика", создана пользователем Factum, 8 фев 2010.

  1. Factum

    Factum New Member

    Дан массив С15. Найти произведение ненулевых элементов. Язык Паскаль
     
    Factum, 8 фев 2010
    #1
  2. Ваха

    Ваха New Member

    var
      c : array [1..15] of real;
      s : real;
      i : byte;
    begin
      s := 0;
      for i := 1 to 15 do read (a);
      for i := 1 to 15 do
        if a <> 0 then 
          s := s * a;
      writeln (s);
    end.
     
    Ваха, 8 фев 2010
    #2

Поделиться этой страницей

Наша группа