62

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

22 февраля 2023

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

категория: информатика



57

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.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...