Program Maximum;

uses Crt;

const  N=20;

type Pole = array[1..N] of integer;

var  P: Pole;

Max,i, Kolikaty: integer ;



begin

clrscr;

writeln;

Writeln('Vyhledani max. prvku v poli:');

writeln('Pole ma 20 prvku.');

writeln('Chces-li vice prvku pole,');

writeln('pak zmen konstantu N ve zdrojovem textu programu!');

writeln;

writeln('Mas-li mene prvku pole, nez je 20,');

writeln('pak do ostatnich (neobsazenych) prvku pole zadej nuly.');

writeln;

writeln;

For i:=1 to N do begin

                 write(i:3,' .prvek pole: ');

                 readln(P[i]);

                 end;



Max:=P[1]; Kolikaty:=1;



For i:=2 to N do

              begin   if P[i]>Max

                      then begin

                           Max:=P[i];

                           Kolikaty:=i;

                           end;



              end;

writeln; writeln;

writeln('Maximun = ',Max);

writeln('Maximalni prvek je ',Kolikaty,'. prvek v poli.');

repeat until keypressed;

end.