Дана последовательность 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