Блог для маленьких школьников и их родителей
ШколаЛа
20
Декабрь

Найти сумму, количество и среднее арифметическое чисел последовательности, делящихся на 2 без остатка….

Автор: yourgod140600
Предмет: Информатика
Уровень: 5 - 9 класс

Найти сумму, количество и среднее арифметическое чисел последовательности, делящихся на 2 без остатка. В программе -Паскаль. Используя оператор downto

Ответов к вопросу: 1
  • tyhenka999
    20.12.2024 | 18:32

    Var a:array [0.10000] of integer;

    b,c,n,i:integer;
    begin
    b:=0;
    c:=0;
    read (n);
    For i:=n downto 1 do begin
    read (a[i]);
    If (a[i] mod 2 = 0) then
    begin
    b:=b+1;
    c:=c+a[i];
    end;
    end;
    Writeln (‘Sum=’,c,’ Kol=’,b,’ SredA=’,(c/b));
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.

Нужна помощь с задачей по Найти сумму, количество и среднее арифметическое чисел последовательности, делящихся на 2 без остатка. В программе -Паскаль. Используя оператор downto? Получите подробные решения и обсуждения от других участников для школьников 5 - 9 класс. Ответы на этот вопрос уже добавлены. Мы приглашаем вас задать свой вопрос и стать экспертом для других.