Girilen dizideki en büyük elemanı bulan program

CLS
 PRINT "GIRILEN DIZIDEKI EN BUYUK ELEMANI BULAN PROGRAM"
 INPUT "DIZININ BOYUTU = "; N
 DIM X(N)
 FOR I = 1 TO N
  INPUT X(I)
 NEXT I
 EB = X(1)
 FOR I = 1 TO N
  IF EB < X(I) THEN EB = X(I)
 NEXT I
 PRINT "DIZININ EN BUYUK ELEMANI = "; EB

Örnek Çıktı :

GIRILEN DIZIDEKI EN BUYUK ELEMANI BULAN PROGRAM
DIZININ BOYUTU = ? 4
? 4
? 9
? 1
? 6
DIZININ EN BUYUK ELEMANI = 9