Mассив: ввести двухмерный массив и вывести на экран наибольшее и наименьшее числа, его положение в массиве - VB
Формулировка задачи:
Ребята, помогите!!! Срочно нужно!!! Скоро экзамен!!! Задание: ввести с клавиатуры двухмерный массив и вывести на экран наибольшее и наименьшее число, а также его положение в массиве в Visual Basic 6.0. Пробовала через input нихрена, тупо красным загорается. Я даже из самоучителя копировала и всё равно красным горит. Не работает input и randomise. В общем помоги плиз!!!
Решение задачи: «Mассив: ввести двухмерный массив и вывести на экран наибольшее и наименьшее числа, его положение в массиве»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim A() As Integer, n As Integer, m As Integer, max As Integer, min As Integer Dim imin As Integer, imax As Integer, jmin As Integer, jmax As Integer, i As Integer, j As Integer n = Val(InputBox("Введите количество строк", "Ввод данных", 5)) m = Val(InputBox("Введите количество столбцов", "Ввод данных", 6)) ReDim A(1 To n, 1 To m) Randomize AutoRedraw = True Cls Print "Исходный массив": Print For i = 1 To n For j = 1 To m A(i, j) = Val(InputBox("Введите A(" & i & "," & j & ")", "Ввод данных", Int(Rnd * 99 + 1))) Print A(i, j) & vbTab; Next Print Next Print imin = 1: imax = 1: jmin = 1: jmax = 1: max = A(1, 1): min = A(1, 1) For i = 1 To n For j = 1 To m If min > A(i, j) Then min = A(i, j): imin = i: jmin = j If max < A(i, j) Then max = A(i, j): imax = i: jmax = j Next Next Print "Минимальный элемент массива: A(" & imin & "," & jmin & ") = " & min Print "Максимальный элемент массива: A(" & imax & "," & jmax & ") = " & max End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д