В каждой строке найти min элемент и поместить его на главную диагональ

@nad0210 · Регистрация: 10.01.2012

Задача:
Дан массив n*n
В каждой строке найти min элемент и поместить его на главную диагональ.
Проблема:
Как поместить на главную диагональ?
И правильно составлена программа?
Заранее благодарю)

PureBasic

CLS
INPUT "VVOD ZNACHENIYA ", N
DIM A(N, N)
RANDOMIZE TIMER
FOR I = 1 TO N
FOR J = 1 TO N
A(I, J) = INT(RND * 100 - 10)
NEXT
NEXT
PRINT "MATRICA"
FOR I = 1 TO N
FOR J = 1 TO N
PRINT A(I, J);
NEXT
PRINT
NEXT
PRINT "MIN V KASHDOY STROKE"
FOR I = 1 TO N
MIN = 1E+10
FOR J = 1 TO N
IF A(I, J) < MIN THEN MIN = A(I, J)
NEXT
PRINT MIN
NEXT

@Фаер · 13.01.2012, 15:37

В принципе, решение верное, только не законченное. Вот:

PureBasic

cls: x=1
randomize timer
input "n=";n
dim A(n,n)
 
for i=1 to n
  min=20
for j=1 to n
  A(i,j)=int(rnd*41-20): print using "### "; A(i,j);
  if A(i,j)<min then min=A(i,j): y=i: z=j' находим мин. в строке
next j
  swap A(y,z),A(x,x): x=x+1' swap-обменять значения переменных
  print :
next i
 
color 2
for i=1 to n
for j=1 to n
  print using "### ";A(i,j);
next j
print :
next i
end

@nad0210 · 13.01.2012, 15:45 **[ТС]**

спасибо большое)

@nad0210 0 / 0 / 0 Регистрация: 10.01.2012 Сообщений: 3
	13.01.2012, 15:45 [ТС]	3
	спасибо большое) 0

Опции темы