Определить самое большое число в массиве, начиная со следующего элемента упорядочить по возрастанию

Категория: Basic
2011-10-14 15:57:21

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

code: #basic
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

автор: Toxa33rus

Поделиться:

Похожие статьи:

теги: двумерный массив, массив, студенты, сортировка, файлы, qbasic, максимальный элемент, упорядочить по возрастанию