program max_min;
 {hledani nejvetsiho a nejmensiho cisla}
 uses crt;
 const nm=20;
 var u:array[1..nm] of real;
     max,min:real;
     j,imax,imin:integer;
     n:1..nm;
 begin
  clrscr;
  write('Pocet udaju ');
  readln(n);
  for j:=1 to n do begin
   write(j:3,' udaj: ');
   readln (u[j]);
  end;
  {probehlo nacteni}
  max:=u[1]; imax:=1;
  min:=u[1]; imin:=1;
  for j:=2 to n do begin
   if u[j]>max then begin
    max:=u[j]; imax:=j;
   end;
   if u[j]