для целочисленного массива из 20 элементов вычислить количество элементов равных среднему арифметическому элементу массива(диапазон значений:от -10 до 15)

Эта программа может выглядеть так:uses Crt;const n=20; type Mas=array [1..n] of integer;var A: Mas;    i, Sum, Col, Sred: integer;beginClrScr;Randomize;Sum:=0;for i:=1 to  n do   begin       A[i]:=-10+random(26);       Write (A[i]:4);       Sum:=Sum+A[i];   end;  WriteLn;  Sred:=Sum div n;  WriteLn('Srednee:',Sred:4);  Col:=0; for i:=1 to  n do    if A[i]=Sred then Col:=Col+1; WriteLn('Col=', Col); ReadLn;end.