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