Показать сообщение отдельно
Старый 05.04.2013, 20:04   #1 (permalink)
zips
Новичок
 
Регистрация: 05.04.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Массив, сортировка

Здравствуйте! рошу помощи в решении задачи
Дана матрица целых чисел X(n, т). Упорядочить ее столбцы по убыванию произведений их элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры.
Код:
CLS

'Ввод матрицы X (NxN)

INPUT "N = "; N
DIM X(N, N) AS INTEGER

FOR i = 1 TO N
  FOR j = 1 TO N
    INPUT ; " "; X(i, j)
  NEXT j
  PRINT
NEXT i

'Вывод матрицы X
PRINT : PRINT

FOR i = 1 TO N
  FOR j = 1 TO N
    PRINT USING "#####"; X(i, j);
  NEXT j
  PRINT
NEXT i
Сделал только ввод и вывод первоначальной матрицы.Дальше прошу помочь.Язык FreeBasic
zips вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070