Найти строку и столбец

@Maratwp · Регистрация: 22.03.2010

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

Найти строку и столбец матрицы MxN, на пересечении которых находится минимальный элемент матрицы.

@YuraAAA · 22.04.2010, 20:27

Visual Basic

Public Sub nat()
Dim m As Byte, n As Byte, O, a() As Single
m = InputBox("m")
n = InputBox("n")
ReDim a(1 To m, 1 To n) As Single
O = ""
For i = 1 To m
For j = 1 To n
a(i, j) = Int((100) * Rnd - 50)
O = O & a(i, j) & Space(2)
Next j
O = O & Chr(13)
Next i
MsgBox ("Matrica : " & Chr(13) & O)
Min = a(1, 1)
Dim iI, jJ
For i = 1 To m
For j = 1 To n
If a(i, j) < Min Then Min = a(i, j): iI = i: jJ = j
Next j
Next i
MsgBox ("Minimum = " & Min & " Koordinati : (" & iI & ";" & jJ & ")")
End Sub

@Maratwp · 22.04.2010, 22:08 **[ТС]**

Спасибо...а то я с матрицами вообще не дружу)))

@Maratwp 2 / 2 / 0 Регистрация: 22.03.2010 Сообщений: 146
		1
	Найти строку и столбец 22.04.2010, 20:20. Показов 886. Ответов 2 Метки нет (Все метки) Найти строку и столбец матрицы MxN, на пересечении которых находится минимальный элемент матрицы. 0

@Maratwp 2 / 2 / 0 Регистрация: 22.03.2010 Сообщений: 146
	22.04.2010, 22:08 [ТС]	3
	Спасибо...а то я с матрицами вообще не дружу))) 0

Опции темы