Найти максимальную оценку и соответствующее имя - QBasic

Формулировка задачи:

два массива имен и оценок найти максимальную оценку и соответствуеешее имя.

Код к задаче: «Найти максимальную оценку и соответствующее имя - QBasic»

textual
CLS
DATA "abc ","bcd ","cde ","def ","efg "
DATA  31,    21,    77,    14,    55
n = 5
DIM a(n) AS STRING
DIM b(n)
 
FOR i = 1 TO n
   READ a(i)
   PRINT a(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO n
   READ b(i)
   PRINT b(i);
NEXT
PRINT : PRINT
 
max = b(1)
im$ = a(1)
 
FOR i = 1 TO n
   IF max < b(i) THEN
      max = b(i)
      im$ = a(i)
   END IF
NEXT
 
PRINT "MAX ="; max; im$
END

10   голосов, оценка 3.900 из 5


СОХРАНИТЬ ССЫЛКУ