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

Var
a: array [1..10] of integer;
i, k: integer;
s: real;
Begin
for i:=1 to 10 do
a[i]:=random(20);
write(Массив: );
for i:=1 to 10 do
write(a[i], , );
writeln;
s:=0;
for i:=1 to 10 do
s:=s+a[i];
s:=s/10;
writeln(СА чисел: , s);
k:=0;
for i:=1 to 10 do
if a[i] gt; s then
k:=k+1;
write(Кол-во элементов массива, превышающих СА: , k);
end.

***

Примерный вывод:
Массив: 9, 1, 4, 16, 19, 14, 16, 6, 11, 16,
СА чисел: 11.2
Кол-во элементов массива, превышающих СА:5