Дана последовательность n целых чисел (n задается с клавиатуры) посчитать в ней среднее арифметическое квадратов четных чисел(pascal)
Var
i,n,m:integer;
k,s:longint;
begin
Write(Задайте количество чисел: ); Read(n);
s:=0; m:=0;
Writeln(Вводите числа...);
for i:=1 to n do
begin
Read(k);
if (k mod 2)=0 then begin s:=s+k*k; Inc(m) end
end;
Writeln(Среднее квадратов четных чисел: ,s/m:0:4)
end.
Тестовое решение:
Задайте количество чисел: 7
Вводите числа...
36
-18
15
8
14
6
9
Среднее квадратов четных чисел: 383.2000
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
