Матрицы - VB (58469)

Формулировка задачи:

Дана матрица размера M x N. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце.

Код к задаче: «Матрицы - VB (58469)»

textual
ReDim A(m, n) As Integer
 
max = A(1, 1)
min = max
imax = 1
jmax = 1
imin = 1
jmin = 1
 
For i = 1 To n
For j = 1 To m
   If max < A(i, j) Then
      max = A(i, j)
      imax = i
      jmax = j
   End If
 
   If min > A(i, j) Then
      min = A(i, j)
      imin = i
      jmin = j
   End If
Next j, i
 
k = A(imax, jmax)
A(imax, jmax) = A(imin, jmin)
A(imin, jmin) = k

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ