Матрицы - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы