1 2 3 4 5 6 7 8 9 10 11 12 |
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ı :
1 2 3 4 5 6 7 |
GIRILEN DIZIDEKI EN BUYUK ELEMANI BULAN PROGRAM DIZININ BOYUTU = ? 4 ? 4 ? 9 ? 1 ? 6 DIZININ EN BUYUK ELEMANI = 9 |