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

Эта программа может выглядеть так:

uses Crt;

const n=20;

type Mas=array [1 ... n] of integer;

var A: Mas;

i, Sum, Col, Sred: integer;

begin

ClrScr;

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.