program ZADACHA3;
var
a : array [1..12] of integer;
I : byte;
x,z,y,w : 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
      begin
        x := a[i];
        y := i;
      end;
    if a[i] < z then
      begin
        z := a[i];
        w := i;
      end;
  end;
  writeln('Massiv do: ',a);
  a[y] := z;
  a[w] := x;
  writeln('Massiv posle: ',a);
end.