Найти в каждом столбце матрицы наименьший элемент и поменять его местами с элементом главной диагонали

@informatic92 · Регистрация: 23.09.2010

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

Дана квадратная матрица. Найти в каждом столбце наименьший элемент и поменять его местами с элементом главной диагонали.

Помогите, пожалуйста, составить программу!

@informatic92 · 23.05.2011, 21:30 **[ТС]**

Люди, выручайте, вообще срочно нужно!

@ДваДва · 23.05.2011, 21:58

PureBasic

CLS
RANDOMIZE TIMER
INPUT K, N
DIM C(K, N)
 
FOR J = 1 TO K
FOR I = 1 TO N
        C(J, I) = INT(RND * 100)
        PRINT C(J, I);
NEXT I
PRINT ""
NEXT J
 
 MINZ = 100
FOR J = 1 TO K
        FOR I = 1 TO N
                 IF C(J, I) < MINZ THEN MINZ = C(J, I): MINI = I
         NEXT I
         C(J, MINI) = C(J, J)
         C(J, J) = MINZ
         MINZ = 100
 
NEXT J
  PRINT ""
 
FOR J = 1 TO K
FOR I = 1 TO N
       PRINT C(J, I);
NEXT I
PRINT ""
NEXT J

@informatic92 · 24.05.2011, 00:20 **[ТС]**

Спасибо огромное!!

@informatic92 0 / 0 / 0 Регистрация: 23.09.2010 Сообщений: 23
		1
	Найти в каждом столбце матрицы наименьший элемент и поменять его местами с элементом главной диагонали 21.05.2011, 23:36. Показов 1136. Ответов 3 Метки нет (Все метки) Дана квадратная матрица. Найти в каждом столбце наименьший элемент и поменять его местами с элементом главной диагонали. Помогите, пожалуйста, составить программу! 0

@informatic92 0 / 0 / 0 Регистрация: 23.09.2010 Сообщений: 23
	23.05.2011, 21:30 [ТС]	2
	Люди, выручайте, вообще срочно нужно! 0

@informatic92 0 / 0 / 0 Регистрация: 23.09.2010 Сообщений: 23
	24.05.2011, 00:20 [ТС]	4
	Спасибо огромное!! 0

Найти в каждом столбце матрицы наименьший элемент и поменять его местами с элементом главной диагонали

Решение