Написать программу. Ввести одномерный массив из целых чисел. Подсчитать во сколько раз сумма четных чисел массива превосходит среднее арифметическое всех чисел массива?

program zvvz1;

const n = 12; / / задаем в массиве элементов количество

var i, k, s:integer; / / задаем целого типа переменные

m:array [1 ... n] of integer;

begin

for i: = 1 to n do / / n чисел получаем случайных и в массив записываем их

m[i]: = random (51);

for i: = 1 to n do / / на экран выводим массив полученный

write (m[i],' ');

writeln; / / переходим для вывода ответа на новую строку

for i:=1 to n do

s: = s + m[i]; / / получаем сумму всех

for i: = 1 to n do

if m[i] mod 2 = 0 then k: = k + m[i]; / / получаем четных сумму

write (' сумма четных чисел массива превосходит среднее арифметическое всех чисел массива в ', (s/n) / k:5:2, ' раз '); / / ответ выводим

end.