Developing.ru

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

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

[code]
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
[/code]

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