Определить индексы минимального элемента на главной диагонали квадратной матрицы - VB

  1. Определить индексы минимального элемента на главной диагонали квадратной матрицы N4 размерности N0 . Для отладки программы матрицу выбрать самостоятельно. сам по побывал версия 1:


textual

Код к задаче: «Определить индексы минимального элемента на главной диагонали квадратной матрицы - VB»

Private Sub Command1_Click()
Dim A() As Single, n As Integer
Dim i As Integer, j As Integer
Dim ind As Integer, Min As Single
n = Val(InputBox("вводим размерность матрицы ", , 4))
If n > 1 Then
ReDim A(n, n) As Single
For i = 1 To n
For j = 1 To n
A(i, j) = Int(Rnd * 25) ' InputBox("ввод матрицы " & i & "," & j)
Print A(i, j); vbTab;
Next
Print
Next
 
Min = A(1, 1)
For i = 1 To n
If Min > A(i, i) Then
Min = A(i, i)
ind = i
End If
Next i
MsgBox "Amin= A(" & ind & "," & ind & ")=" & Min
Else
MsgBox "некорректный ввод"
End If
End Sub

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.000 из 5



Похожие ответы
  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Отметки точек трассы представлены как элементы массива. В этом массиве находят разность мах и мин элементов для определения размаха эпюры трассы. Величина размаха учитывается при выборе размеров (формата) чертежа. В данной задаче студентам следует решить только первую часть проблемы: определить максимальный элемент массива

  1. как определить язык windows на VB6.0?

  1. Дано целое число М. Определить делиться ли М нацело на 9. Сумма цифр М должна делиться нацело на 9

  1. Народ, знаю, что вас бесят подобные темы, но прошу помогите. Начали преподавать VB6, но раньше я его не встречал. Задача такова: Дан двумерный массив размерностью N x M элементов. Определить количество элементов, значения которых больше заданного числа F. Если не сложно, пожалуйста напишите полный код с пояснениями. Массив рандомный. Заранее спасибо.

  1. Здраствуйте, я учусь на юридическом факультете и т.к. мой мозг полный гуманитарий, я не могу решить на первый взгляд простенькую задачу, буду благодарен любой помощи... Сама задача: Определить стоимость услуг мобильной связи, если известна стоимость одной секунды разговора, и продолжительность всех разговоров, цена одного смс и количество отправленных смс. P.S. Писал с телефона если где-то есть ошибки, извиняйте, буду рад любой помощи, числа я подставлю сам, важен сам алгоритм выполнения)) Спасибо заранее))

  1. Определить, лежит ли данная точка на одной из сторон треугольника, заданного координатами его вершин. Далёк от информатики, нужно написать программу в VBA

  1. Двумерный массив n*m заполнен рандомно. Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. Помогите наладить программу, не могу понять почему определяет местами не правильно.

  1. Даны три стороны треугольника a, b, c. Определить, является ли такой треугольник равнобедренным, равносторонним или разносторонним. НУЖЕН ПРОГРАММНЫЙ КОД В VISUAL BASIC, БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН.