Найти максимальную оценку и соответствующее имя - 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.9 из 5
Похожие ответы