program ZADACHA1;
var
a : array [1..12] of integer;
I : byte;
x,z : integer;
begin
  Randomize;
x:=0;
z:= 50;
For i := 1 to 12 do
  Begin
    a[i]:=-20+random(50-(-20+1));
    if a[i] > x then
      x := a[i];
    if a[i] < z then
      z := a[i];
  end;
  writeln(a);
  writeln('Srednee arifmetichskoe maksimalnogo i minimalnogo elementov: ',(x + z)/2);
end.