Шпаргалка: Вопросы по информатике

INPUT re(j, i): PRINT #1, re(j, i)

NEXT i, j

CLOSE

PRINT «Файл для результатов создан»

LOCATE 24, 1: PRINT «Для продолжения нажмите любую клавишу»

210 IF INKEY$ = "" THEN 210

GOTO 10

otl: CLS

OPEN "fam" FOR INPUT AS #1

OPEN "rez" FOR INPUT AS #2

FOR i = 1 TO 25: INPUT #1, fa$(i): NEXT i

FOR i = 1 TO 25

FOR j = 1 TO 5

INPUT #2, re(i, j)

NEXT j, i

CLOSE

CLS : x = 0: z = 1: PRINT " Список студентов"

PRINT " № Ф,И,О оценки № Ф,И,О оценки "

FOR i = 1 TO 25

z = z + 1: IF z > 14 THEN z = 2: x = x + 30

LOCATE z + 1, x + 1: PRINT i; fa$(i);

LOCATE z + 1, x + 15

FOR j = 1 TO 5

PRINT re(i, j);

NEXT j

PRINT

NEXT i

PRINT :

PRINT " ” Отличники: ": s = 0: k = 0