Найти максимальную оценку и соответствующее имя - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д