Сформировать массив чисел, больше среднего — Pascal(Паскаль)

program oMassiv;
type
  MAS = ARRAY [1..100] OF REAL;
var
  A, b: MAS;
  RA: INTEGER;
procedure VVOD(var kol: INTEGER; var X: MAS);
var
  I, K, N, M: INTEGER;
begin
  WRITE(' НОМЕР ВАРИАНТА= ');
  READLN(M);
  kol := M + 50;
  for I := 1 TO kol DO
  begin
    N := (-(20 + M));
    K := (20 + M);
    X[I] := N + (K - N) * RANDOM(I);
  end;
end;
procedure VIVOD(N: INTEGER; X: MAS);
var
  I, M: INTEGER;
begin
  for I := 1 TO N DO 
    WRITE(' (', i:2, ')=', x[i]:8:2);
  WRITELN;
end;
procedure BSr(N: INTEGER; X: MAS; var y: mas);
var
  I, M, KOL: INTEGER;
  S, SRAR: REAL;
begin
  for I := 1 TO N DO
    S := S + X[I];
  SRAR := S / n;
  WRITELN('Среднее число: ', SRAR);
  m := 0;
  for I := 1 TO N DO
    if X[I] > SRAR THEN 
    begin
      inc(m);
      y[m] := x[i];
    end;
  for I := 1 TO m DO
    WRITE(' (', i:2, ')=', y[i]:8:2);  
  WRITELN;      
end;
 {Основная программа}
begin
  VVOD(RA, A);
  WRITELN('massiv a');
  VIVOD(RA, A);
  BSr(RA, A, b);
end.

Поделитесь своим мнением или задайте вопрос