Создать массив а из 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.