В двумерном массиве найти минимальный элемент и указать его номер- Basic(Бейсик)

DIM A(10, 10)
RANDOMIZE TIMER
FOR I = 1 TO 10
FOR J = 1 TO 10
A(I, J) = INT(RND * 101) - 50
NEXT J
NEXT I
MIN = A(1, 1)
IMIN = 1
JMIN = 1
FOR I = 1 TO 10
FOR J = 1 TO 10
IF A(I, J) < MIN THEN MIN = A(I, J): IMIN = I: JMIN = J
NEXT J
NEXT I
CLS
FOR I = 1 TO 10
FOR J = 1 TO 10
PRINT A(I, J);
NEXT J
PRINT
NEXT I
PRINT "Minimalnyj element="; MIN
PRINT "Nomer stroki="; IMIN
PRINT "Nomer stolbca="; JMIN

Leave a Comment