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

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


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

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

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