WAP to find greatest number among 20 numbers

Qbasic program to find greatest number among 20 numbers

CLS
 DIM N(20)
 FOR I = 1 TO 20
 INPUT ENTER THE NUMBERS; N(I)
 NEXT I
 G = N(1)
 FOR I = 2 TO 20
 IF N(I) > G THEN G = N(I)
 NEXT I
 PRINT “THE GREATEST NUMBER IS”; G
 END

USING SUB

DECLARE SUB GREAT(N())
 CLS
 DIM N(20)
 FOR I = 1 TO 20
 INPUT ENTER THE NUMBERS; N(I)
 NEXT I
 CALL GREAT(N())
 END
 
 SUB GREAT(N())
 G = N(1)
 FOR I = 2 TO 20
 IF N(I) > G THEN G = N(I)
 NEXT I
 PRINT “THE GREATEST NUMBER IS”; G
 END SUB