Матрицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д