Видимо, это фрагмент программы на 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.
Відповідь:
6 или ошибка
Пояснення:
она виведет 6 так как 0(ето число присвоено для s ) + 6 = 6
так как команда print(тоесть вивод) казивает число s
Но ето не точно так как после команди вивод должно бить ()
вот правильно
цел s, k
S = 0
нц для k от 5 до 11
s = s + 6
кц
вывод (ѕ)
так што может вилететь ошибка