Вопрос по информатике:
Задан двухмерный массив надо
Найти сумму максимальных элементов столбцов матрицы Х(n, n).
вот написал но не так как надо делает помогите
Private Sub CommandButton4_Click()
ReDim w(m, n)
For j = 1 To n
Max = 0
For i = 1 To mIf Max < a(i, j) Then Max = a(i, j)
Next i
MaxNext j
TextBox2.Text = TextBox2.Text + Str(s) + " "
End Sub
- 21.05.2015 21:39
- Информатика
- remove_red_eye 13526
- thumb_up 46
Ответы и объяснения 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 я убрал, потому что он уничтожит содержимое массива.
- 22.05.2015 12:39
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.