Поможите кто может!!!

[AiK]

Ты бы ради спортивного интереса указал бы язык что ли.

[Naeel Maqsudov]

На форму добавьте TextBox (Text1) и кнопку. На кнопку напишите следующее:

Код: Выделить всё

Dim a(1 To 10, 1 To 20) As Double, max As Double, _
    maxi As Integer, maxj As Integer, i As Integer, _
    s As String, j As Integer
    
Private Sub Command1_Click()
  max = a(1, 1): maxi = 1: maxj = 1
  s = "Исходные данные: " & Chr(13) & Chr(10)
  For i = 1 To 10
    For j = 1 To 20
      a(i, j) = Int(Rnd(1) * 1000)
      s = s & a(i, j) & " "
    Next
    s = s & Chr(13) & Chr(10)
  Next
  
  s = s & "Результат: " & Chr(13) & Chr(10)
  s = s & "Макс. элемент: " & maxi & " строка  " & maxj & " столбец" & Chr(13) & Chr(10)
    
  For i = 1 To 10: For j = 1 To 20
    If max < a(i, j) Then
      max = a(i, j): maxi = i: maxj = j
    End If
  Next: Next
  
  a(maxi, maxj) = 0
  
  For i = 1 To 10
    For j = 1 To 20
      s = s & a(i, j) & " "
    Next
    s = s & Chr(13) & Chr(10)
  Next
  
  
  Text1.Text = s
  
End Sub