Нужен прог. дан одномерный массив a[n]. найти среднее значение массива и подсчитать количество элементов, значения которых равны квадратному корню из среднего.

Const
N = 30;
Var
A:array[1..N] of integer;
i:integer;
C,K,Q:real;
Begin
For i:= 1 to N do
    Begin
    A[i]:=random(21);
    Write(A[i],' ');
    C:=C+A[i];
    End;
WriteLn('Среднее арифметическое элементов массива равно: ',C);
C:=sqrt(C);
K:=0;
For i:= 1 to N do
    if A[i]=C then K:=K+1;
WriteLn('Кол-во элементов, равных ',C,' равно ',K);
End.