Составить алгоритм на языке программирования , который выводит среднее арифметическое наибольшего и наименьшего из 20 элементов , имеющих значение из интервала [-10; 10]

Pascal:
const n=20;
var a: array[1..n] of integer;
max, min, i: integer;
begin
max:=-11;
min:=11;
for i:=1 to n do begin
a[i]:=random(20)-10; {или readln(a[i]); если нужен конкретный ввод}
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln((max+min)/2);
end.