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]