Массив А(20) заполнить целыми случайными числами из спектра от 1 до

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]gt;max) and (a[i]lt;c) then max:=a[i]; Проверяем элементы массива на соответствие условию задания
write(c, ,max);
end.