program massiv;
uses crt;
const n = 20;
type matrica = array[1..n] of byte;
var a:matrica;
    b:matrica;
    i:integer;
    j:integer;
    maxB:integer;
    minA:integer;
    c,d,f:integer;
begin
    writeln;
    clrscr;
    randomize;
    for i:= 1 to n do
begin
    a[i]:=random(10);
    write(a[i],' ');
end;
writeln;
     writeln;
    for i:= 1 to n do
begin
    b[i]:=random(10);
    write(b[i], ' ');
end;
writeln;
    minA:=a[1];
    c:=1;
    for i:= 2 to n do
    if minA > a[i] then
begin
     minA:=a[i];
     c:=i;
end;
      maxB:=b[1];
      d:=1;
      for i:= 2 to n do
      if maxB<b[i] then
begin
      maxB:=b[i];
      d:=i;
end;
      f:=a[c];
      a[c]:=b[d];
      b[d]:=f;
      writeln;
      for i:= 1 to n do
begin
      write(a[i],' ');
end;
      writeln;
      writeln;
            for i:= 1 to n do
begin
      write(b[i],' ');
end;
      writeln;
      readln;
 
end.