Сформировать матрицу по правилу

gaiver2

Дана матрица A размерности 3*5. получить матрицу по правилу С(i,j)=a(i,j)*min(a(k,j))т.е нам нужно элементы столбцов матрицы A уножить на минимальный элемент этого столбца. допустим. A .............. матрица С будет иметь вид 3 4 5 6 7 ........ 3 12 25 12 21 5 6 9 2 3 ......... 5 10 45 4 9 1 3 6 8 4 ........ 1 9 30 16 12
1 ответ

gaiver2

Dim min_arr(5) 'массив минимумов
For i=0 to 4
  min_arr(i) = A(0,i)
  For j=0 to 2
    If min_arr(i) > A(j,i) Then
      min_arr(i) = A(j,i)
    End if
  Next j
Next i
 
For i=0 to 4
  For j = 0 to 2
    C(j,i) = A(j,i) * min_arr(i)
  Next j
Next i
Добавлено через 3 часа 42 минуты 34 секунды Вот оно же только заточено под QB:
CLS
 
DIM A(3, 5)
FOR i = 0 TO 2
  FOR j = 0 TO 4
    PRINT "A("; i; ", "; j; ")= ";
    INPUT "", A(i, j)
  NEXT j
NEXT i
 
DIM minArr(5)
FOR i = 0 TO 4
  minArr(i) = A(0, i)
  FOR j = 0 TO 2
    IF minArr(i) > A(j, i) THEN
      minArr(i) = A(j, i)
    END IF
  NEXT j
NEXT i
 
DIM C(3, 5)
FOR i = 0 TO 4
  FOR j = 0 TO 2
    C(j, i) = A(j, i) * minArr(i)
  NEXT j
NEXT i
 
FOR i = 0 TO 2
 PRINT C(i, 0); C(i, 1); C(i, 2); C(i, 3); C(i, 4)
NEXT i
Проверил с цифрами из условия и нашел ошибку: "5 10 45 4 9", а надо "5 18 45 4 9"