• 20 November 2013
    • Химия
    • Автор: Ancordkot

    Написать программу для решения следующей задачи: вычислить сумму и количество положительных элементов последовательности.


    • 20 November 2013
    • Ответ оставил: Ника1341

    Var
      sum, count, t : integer;
    begin
      sum := 0; count := 0;
      while not eoln do
      begin
        read (t);
        if t > 0 then
        begin
          sum := sum + t;
          count := count + 1;
        end;
      writeln (sum, ' ', count);
    end.

    если количество элементов указано
    var
      sum, count, t, n, i : integer;
    begin
      sum := 0; count := 0;
      read (n);
      for i := 1 to n do 
      begin
        read (t);
        if t > 0 then
        begin
          sum := sum + t;
          count := count + 1;
        end;
      writeln (sum, ' ', count);
    end.

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы