Видимо, это фрагмент программы на VB, привязанный к клику по кнопке Button4 на некоторой форме. Private Sub CommandButton4_Click() Max = 0 For j = 1 To n For i = 1 To m If Max < a(i, j) Then Max = a(i, j) Next i Next j TextBox2.Text = TextBox2.Text + Str(Max) + " " End Sub
Здесь ищется, а затем выводится в поле на форме максимальный элемент двухмерного массива, который извне и заполнен некоторыми значениями. Оператор ReDim я убрал, потому что он уничтожит содержимое массива.
В программировании операцию "задания" конкретных значений объектам программы называют присваиванием. В Языке Паскаль присваивание начальных значений элементам массива можно производить либо непосредственно, либо в цикле. Непосредственное присваивание используется, если количество таких присваиваний невелико. В этом случае записываются операторы присваивания для каждого элемента массива, которому нужно присвоить значение, например: a[6]:=5; b[4,12]:=11; и т.д. Присваивание в цикле используется, когда количество элеметнов массива велико, а значение для конкретного элемента можно или задать общим алгоритмом, или ввести извне (с клавиатуры или из файла). В этом случае цикл организуется так, чтобы параметры цикла перебрали все необходимые индексы элементов массива. Примеры: for i:=1 to 20 do a[i]:=3*i^2-1;
for i:=1 to m do for j:=1 to n do readln(a[i,j]); Еще пример - заполнение случайными числами в диапазоне (-20..20) Randomize; for i:=1 to m do x[i]:=Random(40)-20;
