REM Сортировка фамилий DIM NAME$(10) N = 10 CLS FOR J = 1 TO 10 INPUT "Введи очеpедную фамилию - ", NAME$(J) NEXT J CLS PRINT "Фамилии до упоpядочения : " FOR J = 1 TO N LOCATE J + 2, 1: PRINT NAME$(J) NEXT J FOR J = 1 TO N - 1 FOR K = J + 1 TO N IF NAME$(J) > NAME$(K) THEN TMP$ = NAME$(J) NAME$(J) = NAME$(K) NAME$(K) = TMP$ END IF NEXT K NEXT J LOCATE 1, 40 PRINT "Фамилии после упоpядочения :" FOR J = 1 TO N LOCATE J + 2, 40: PRINT NAME$(J) NEXT J END