Массив А (20) заполнить целыми случайными числами из диапазона от 1 до 100. Найти максимальный МАХ из тех элементов А, которые меньше среднего арифметического С всех элементов А. Вывести А, С, МАХ.

Program massiv;

const

n=20;

var

a:array[1 ... n] of integer;

i, max, c:integer;

begin

max:=0;

c:=0;

randomize;

for i:=1 to n do

begin

a[i]:=random (99) + 1;

c:=c+a[i]; {Для экономии памяти сумма элементов записывается в ячейку, где позже будет лежать значение среднего арифметического}

write (a[i],' ');

end;

writeln;

c:=c div n; {Находим среднее арифметическое}

for i:=1 to n do

if (a[i]>max) and (a[i]
write (c,' ', max);

end.