Question

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

Answer 1

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

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.