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

var a:array[1..10] of integer;i,k:integer;q:real;beginfor i:=1 to 10 do begina[i]:=random(20);writeln(a[i]);q:=q+a[i];end;q:=q/10;for i:=1 to 10 doif a[i]>q then inc(k);writeln('Чисел превышающих среднее: ',k);end.