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

pascal:const n=20;var a: array[1..n] of integer;max, min, i: integer;beginmax:=-11;min:=11;for i:=1 to n do begina[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.