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

Question

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

Answer 1

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