![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 07.06.2011
Сообщений: 1
|
![]()
Найти сумму, среднее арифметическое элементов области А исходной матрицы, а также минимальный и максимальный элементы с их координатами в области а исходной матрицы ( элементы второстепенной диагонали в область а не включать) начал делать,но на этом все и остановилось((
Sub lab() Dim k(5, 5) For i = 1 To n For j = 1 To n k(i, j) = Worksheets("Лист1").Cells(i, j) Next j Next i For i = 1 To n For j = n - i + 2 To n Sum = Sum + k(i, n - i + 2) Next j Next i Worksheets("Лист1").Cells(6, 1) = Sum vMin = k(5, 5) For i = 2 To n For j = (n - i) + 2 To n If k(i, j) < vMin Then vMin = k(i, j) Next Next Worksheets("Лист1").Cells(7, 1) = vMin End Sub |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 04.06.2011
Сообщений: 16
|
![]()
For i=1 To n
For j=m-i+1 To m и далее... |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Элементы выше побочной диагонали по возрастанию. | rwss gle | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 29.03.2011 20:18 |
[Pascal] найти сумму элементов лежащих ниже побочной диагонали | Рамик | Помощь студентам | 12 | 28.03.2011 22:53 |
Найти наименьший отрицательный элемент выше побочной диагонали и наименьший положительный ниже (Pascal) | Tifa | Помощь студентам | 10 | 28.01.2011 08:23 |
на побочной диагонали должны стоять максимальные элементы всех строк | SkyL1ne | Помощь студентам | 1 | 28.09.2010 22:01 |
Найти отношения суммы элементов главной диагонали и суммы элементов побочной диагонали квадратной матрицы | Elmander | Помощь студентам | 2 | 21.06.2007 07:15 |