Переставить местами столбцы матрицы

@Alena123 · Регистрация: 28.12.2014

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток! Помогите пожалуйста написать код программы!
Дан массив A(N,N). Переставить местами столбцы массива: 1<->N, 2<->(N-1)... Отсортировать предпоследний столбец в порядке возрастания.

Добавлено через 8 часов 59 минут
совсем некому помочь?

echs · 23.05.2016, 08:42

Программа проверена

QBasic/QuickBASIC

CLS
OPTION BASE 1
CONST n = 7
DIM A(n, n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO n
   A(i, j) = 9 * RND
   PRINT A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO n \ 2
   SWAP A(i, j), A(i, n + 1 - j)
NEXT j, i
 
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
   IF A(i, n - 1) > A(j, n - 1) THEN SWAP A(i, n - 1), A(j, n - 1)
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT A(i, j);
NEXT j: PRINT
NEXT i
END

@Alena123 0 / 0 / 0 Регистрация: 28.12.2014 Сообщений: 2
		1
	Переставить местами столбцы матрицы 29.12.2014, 02:16. Показов 1112. Ответов 1 Метки нет (Все метки) Всем доброго времени суток! Помогите пожалуйста написать код программы! Дан массив A(N,N). Переставить местами столбцы массива: 1<->N, 2<->(N-1)... Отсортировать предпоследний столбец в порядке возрастания. Добавлено через 8 часов 59 минут совсем некому помочь? 0

	23.05.2016, 08:42

Переставить местами столбцы матрицы

Решение