Создать массив а из 10 целых чисел, принадлежащих промежутка [0; 20). Вывести полученный массив на экран. Вычислить количество элементов массива, значение которых превышает среднему арифметическому значению

Var

a : array[0 ... 9] of integer;

i, k : integer;

s : real;

Begin

s : = 0;

k : = 0;

randomize;

for i : = 0 to 9 do begin

a[i] : = random (20) ;

Write (a[i], ' ') ;

s : = s + a[i];

end;

s : = s / 10;

For i : = 0 to 9 do

if a[i] > s then

inc (k) ;

Writeln () ;

Writeln (k) ;

End.