[@artem11111]

задание найти номер строки с максимальным элементом и затем найти ср арифметическое четных эл-в в этой строке

VB.NET

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 Public Class Form1     Private Sub vvod_mat(ByRef a(,) As Integer, ByRef n As Integer, ByRef m As Integer)         Dim i, j As Integer         n = val(inputbox("укажите количество строк в матрице"))         m = val(inputbox("укажите количество столбцов в матрице"))         ReDim a(n - 1, m - 1)         For i = 0 To n - 1             For j = 0 To m - 1                 a(i, j) = val(inputbox("введите элемент матрицы, стоящий в " + str(i + 1) + "-й строке и в " + str(j + 1) + "-м столбце"))             Next         Next     End Sub     Private Sub vivod_mat(ByVal a(,) As Integer, ByVal n As Integer, ByVal m As Integer, ByRef list As ListBox)         Dim i, j As Integer         Dim s As String         For i = 0 To n - 1             s = ""             For j = 0 To m - 1                 s = s + str(a(i, j)) + " "             Next             list.items.add(s)         Next     End Sub     Public Function nah(ByVal a(,) As Integer, ByVal n As Integer, ByVal m As Integer) As Integer         Dim i, j, imax, max As Integer         max = a(0, 0)         imax = 0         For i = 0 To n - 1             For j = 0 To m - 1                 If a(i, j) > max Then max = a(i, j) : imax = i             Next         Next         nah = imax       End Function     Private Sub sr_ar(ByVal a(,) As Integer, ByVal n As Integer, ByVal m As Integer, ByRef ni As Integer, ByRef text As TextBox)         Dim i, j, ch, sum, ar As Integer         sum = 0         ch = 0         i = ni         For j = 0 To m - 1             If (a(i, j) Mod 2) > 0 Then sum = sum + a(i, j) : ch = ch + 1         Next         ar = sum / ch         text.Text = Str(ar)     End Sub       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim a(,), n, m As Integer         ListBox1.Items.Clear()         TextBox1.Text = ""         vvod_mat(a, n, m)         vivod_mat(a, n, m, ListBox1)         nah(a, n, m)         sr_ar(a, n, m, nah, TextBox1)               End Sub End Class

выдает вот такую ошибку - скрин

[SoftIce]

55-я строка

VB.NET
1  sr_ar(a, n, m, nah(a, n, m), TextBox1)

Правильность программы не проверял.