Налить первый раз в трехлитровый перелить в пяти, налить второй раз в трехлитровый, перелить в пятилитровый. что останется, то и есть один литр :-) потому что 3+3-5=1
Видимо, это фрагмент программы на 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 я убрал, потому что он уничтожит содержимое массива.
var a: array[1..n, 1..n] of integer; i, j, sum, min, imin: integer;
begin Randomize; for i := 1 to n do for j := 1 to n do a[i, j] := random(100) - 50; writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to n do write(a[i, j]:4); writeln end; sum := 0; min := 100; //у нас в массиве числа на (-50:50) for i := 1 to n - 1 do for j := 1 to n - i do sum := sum + a[i, j]; for i := 1 to n do if min > a[i, i] then begin min := a[i, i]; imin := i end; writeln('Сумма элементов левее побочной диагонали=', sum); writeln('Минимальный элемент на главной диагонали=', min, ', его координаты (', imin, ',', imin, ')') end.
что останется, то и есть один литр :-) потому что 3+3-5=1