20 INPUT "Введите значения N и M";N,M:IF N=1 OR M=1 THEN 20
30 DIM L(N,M):G=RND(-TIME)
40 FOR I=1 TO N:FOR J=1 TO M:L(I,J)=INT(10*RND(1)):PRINT L(I,J);:NEXT J:PRINT:NEXT I
50 FOR I=1 TO N
60   GOSUB 130
70 NEXT I
80 FOR I=1 TO N-1:FOR C=I+1 TO N
90 IF L(I,1)<L(C,1) THEN NEXT C:B=L(I,1) ELSE NEXT I:B=L(C,1)
100 PRINT
110 FOR I=1 TO N
120 NEXT:PRINT:PRINT"K=";B:END
130 'Упорядочение элементов в строке
140 FOR J=1 TO M-1:FOR K=J+1 TO M
150 IF L(I,J)>L(I,K) THEN GOTO 160 ELSE SWAP L(I,J),L(I,K)
160 NEXT K:NEXT J:PRINT
170 FOR J=1 TO M:PRINT L(I,J);:NEXT J
180 RETURN