10.12.2009-Dizideki Maksimum Sayıyı Bulma

PROGRAM MAKSIMUM;
TYPE SAYI= ARRAY[1..5] OF INTEGER;
VAR DIZI: SAYI;
i, max: INTEGER;

BEGIN

WRITELN('5 SAYI GIRINIZ.');
FOR i:= 1 TO 5 DO
READLN(DIZI[i]);

max:=DIZI[1];

FOR i:= 1 TO 5 DO
BEGIN
READLN(DIZI[i]);
IF DIZI[i] > max THEN
max := DIZI[i];
END;

WRITLN('EN BUYUK SAYI= ', max);

READLN;
END.