Матрицы - VB (58469)
Формулировка задачи:
Дана матрица размера M x N. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце.
Решение задачи: «Матрицы»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
