program qq;
var a:array[1..50] of integer;
    i, min, max:integer;
    f:text;
    res:string;

begin
 min:=50;
 max:=0;
 for i:=1 to 50 do
  a[i]:=random(50);
 for i:=1 to 50 do
  write(a[i], ' ');
 writeln();
 for i:=1 to 50 do
  begin
  if a[i]>max then max:=a[i];
  if a[i]<min then min:=a[i];
  end;
 res:=inttostr(max) + ' ' + inttostr(min);
 assign(f, 'output.txt');
 rewrite(f);
 write(f, res);
 close(f);
end.