Написать функцию, которая в одномерном массиве подсчитывает количество чисел, превышающих среднее арифметическое значение всех чис

[Ману]

помогите, пожалуйста...

Написать функцию, которая в одномерном массиве подсчитывает количество чисел, превышающих среднее арифметическое значение всех чисел массива

срочно... заранее СПАСИБО...

[ZX Spectrum-128]

http://pas1.ru/average

[Stilet]

const 
 arr:array[1..2] of integer = (1,1);
var j,i,avg:integer;
begin
 avg:=0; j:=0;
 for i:=1 to 2 do avg:=avg+arr[i];
 avg:=avg div 2;
 for i:=1 to 2 do if avg<arr[i] then inc(j);
 write('Кол-во таких ',j); readln;
end.

Идея ясна?