Объявить двухмерный массив и напечатать матрицу на экране - QBasic

Формулировка задачи:

Имеется задача: Объявить двухмерный массив и напечатать матрицу на экране. При этом, если в верхней или нижней строке содержится максимальный элемент, то необходимо поменять строки (верхнюю и нижнюю) местами. Просьба помочь с последним пунктом
CLS
DIM A (3,3)
FOR I= 1 TO 3 STEP 1
FOR J=1 TO 3 STEP 1
INPUT A (i, j)
NEXT J
NEXT I
FOR I= 1 TO 3 STEP 1
FOR J= 1 TO 3 STEP 1
PRINT A (i, j)
NEXT J
PRINT " "
NEXT I
LET B=A (1,1)
LET KI=1
LET KJ=1
FOR I= 1 TO 3 STEP 1
FOR J= 1 TO 3 STEP 1
IF A (i, j) > B THEN
LET B= A (i, j)
LET KI= I
LET KJ= J
ELSE
END IF
NEXT J
NEXT I
PRINT B, KI, KJ

Код к задаче: «Объявить двухмерный массив и напечатать матрицу на экране - QBasic»

textual
FOR j = 1 TO 3
   SWAP A(1, j), A(3, j)
NEXT j

11   голосов, оценка 3.909 из 5


СОХРАНИТЬ ССЫЛКУ