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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment