Как заменить элемент с индексом, равным заданному числу F значением максимального элемента - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста доделать программу. Осталось сделать: Заменить элемент с индексом, равным заданному числу F значением максимального элемента. Но вот никак не получается(

Решение задачи: «Как заменить элемент с индексом, равным заданному числу F значением максимального элемента»

textual
Листинг программы
Option Explicit
Dim mas(1 To 50, 1 To 50) As Integer, max As Integer, min As Integer, matr As Integer
Dim i As Integer, j As Integer, n As Integer, m As Integer, m_max As Integer, n_min As Integer
Dim stra As String, F As Integer, s As Long
 
Private Sub Command1_Click()
   Randomize
   n = Val(Text1.Text)
   m = Val(Text2.Text)
   n_min = Val(Text3.Text)
   m_max = Val(Text4.Text)
   List1.AddItem "Исходный массив:"
   For i = 1 To n
         For j = 1 To m
                    mas(i, j) = n_min + Int(Rnd * (m_max - n_min))
                    stra = stra & Str(mas(i, j)) & "  "
         Next
         List1.AddItem stra
         stra = ""
    Next
End Sub
 
Private Sub Command3_Click()
    F = Val(Text5.Text)
    s = 1
    For i = 1 To n
         For j = 1 To m
                If mas(i, j) < F Then s = s * mas(i, j)
         Next
    Next
    List2.AddItem s
End Sub
 
 
Private Sub Command4_Click()
End
End Sub
 
 
Private Sub Command5_Click()
    Dim imax As Integer, jmax As Integer
    max = mas(1, 1) 'Val(Text3.Text )
    imax = 1
    jmax = 1
    s = 0
    For i = 1 To n
           For j = 1 To m
                 If mas(i, j) > max Then max = mas(i, j): imax = i: jmax = j
           Next
    Next
    List4.AddItem "Maксимальный элемент массива mas(" & imax & ", " & jmax & ") = " & max
    ''''''''''''''''''''
    
    'Вот тут непонятно что на что менять
    
    mas(F, F) = max
    ''''''''''''''''''
    
    List4.AddItem "Массив, в котором элемент mas(" & F & ", " & F & ") "
    List4.AddItem "заменен на максимальный"
    
    For i = 1 To n
         For j = 1 To m
                    stra = stra & Str(mas(i, j)) & "  "
         Next
         List4.AddItem stra
         stra = ""
    Next
End Sub

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


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

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

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