Найти максимальное значение в двумерном числовом массиве А().
INPUT M
INPUT N
DIM A(M,N)
DIM B(M,1)
FOR J=1 TO N
FOR I=1 TO M
A(I,J)=INT(RND(1))*100
NEXT
NEXT
FOR J=1 TO N
FOR I=1 TO M
PRINT A(I,J)
NEXT
PRINT
NEXT
FOR I=1 TO M
MAX=A(I,J)
FOR J=2 TO N
IF MAX < A(I,J) THEN MAX = A(I,J)
NEXT
B(I,1)=MAX
NEXT
FOR I=1 TO N
PRINT B(I, 1)
NEXT
PRINT
Как дальше подскажите??????????????????
А зачем дальше? Непонятно стало, что вам нужно было найти. Сейчас вы нашли наибольший элемент в каждой строке. Если же нужен был наибольший элемент матрицы, то все эти действия лишние.
Не надо в строках искать, ищите сразу в матрице. Это проще.
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)