Регистрация
Катаріна12
12.08.2021 13:47
Информатика
Есть ответ 👍

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

286
359
Посмотреть ответы 2

Ответы на вопрос:

yanaboss666
yanaboss666
4,4(23 оценок)
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.
адэляком
адэляком
4,5(89 оценок)

ответ:

жылулық қозғалтқыш – жылу энергиясын механикалық жұмысқа түрлендіретін қозғалтқыш. ж. қ. табиғи энергет. қорларды хим. немесе ядр. отын түрінде пайдаланады.

объяснение:

Популярно: Информатика