Вывести ** печать элементы массива большие или равные среднему арифметическому

Question

Вывести на печать элементы массива большие или равные среднему арифметическому

Answer 1

Program z4;  Var a: array [1..1000] of integer;      i, sum, n:integer; S_R: real;Begin  write('Введите кол-во элементов - '); readln(n);    for i := 1 to n do  begin    a[i] := random (30);    sum:= sum + a[i];  end;    S_R:= sum / n;    writeln('Cреднее арифметическое - ', S_R);    for i := 1 to n do    if (a[i] >= S_R) then write(a[i],' ');   End.