Определить самое большое число в массиве, начиная со следующего элемента упорядочить по возрастанию — QBasic(Бейсик)

disel

Дана матрица 12×12, которая читается из входного файла в двумерный массив. На экране в виде таблице входные данные и отдельно выходные данные.

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
26
27
28
29
30
31
32
33
CLS
DIM A(1 TO 12, 1 TO 12)
FOR i = 1 TO 12
  FOR j = 1 TO 12
    A(i, j) = INT(RND * 10)
  NEXT j
NEXT i
  
maxR = 1
maxC = 1
maxVal = A(1, 1)
  
FOR i = 1 TO 12
  FOR j = 1 TO 12
    IF A(i, j) > maxVal THEN
      maxR = j
      maxC = i
      maxVal = A(i, j)
    END IF
  NEXT j
NEXT i
  
IF maxR + 1 < 12 THEN
  FOR i = maxR + 1 TO 12
    FOR j = 12 TO i + 1 STEP -1
      IF A(j - 1, maxC) > A(j, maxC) THEN
        tmp = A(j - 1, maxC)
        A(j - 1, maxC) = A(j, maxC)
        A(j, maxC) = tmp
      END IF
    NEXT j
  NEXT i
END IF

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