|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.12.2013, 13:44 | #1 |
Новичок
Джуниор
Регистрация: 20.12.2013
Сообщений: 5
|
Напишите пожалуйста программу очень надо
Массив
4 2 3 4 0 7 5 -2 -4 3 2 8 4 -2 8 3 Получить новую матрицу, элементы которой есть сумма элементов данной матрицы с наименьшим элементом среди расположенных ниже побочной диагонали Ответы: 2 0 1 2 -1 5 3 -4 -6 1 0 6 min=-2 2 -4 6 1 |
20.12.2013, 13:46 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Покажи код ввода матрицы.
I'm learning to live...
|
20.12.2013, 14:18 | #3 |
Новичок
Джуниор
Регистрация: 20.12.2013
Сообщений: 5
|
Можно поподробнее что именно нужно?
Если я правильно поняла, то тебе нужно вот это CONST kol_strok=5; kol_stolbcov=4; VAR A:array[1..kol_strok,1..kol_stolbcov] of Real; i,j:integer; BEGIN for i:=1 to kol_strok do for j:=1 to kol_stolbcov do Read(A[i,j]); END. |
20.12.2013, 14:57 | #4 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Ну в принципе верно. Теперь надо найти минимальный элемент ниже побочной диагонали и просуммировать все с ним.
Работа с элементами ниже побочной диагонали рассмотрена по этой ссылке. Нужно не суммировать их, а найти минимальный. Суммирование - аналогично вводу, вместо Read(A[i,j]) написать A[i,j] := A[i,j] + min;
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
20.12.2013, 15:15 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Да.
А теперь в цикл ввода добавь условие: Код:
И сам цикл суммирования в конец Код:
I'm learning to live...
|
20.12.2013, 17:06 | #6 | |
Новичок
Джуниор
Регистрация: 20.12.2013
Сообщений: 5
|
Цитата:
|
|
20.12.2013, 17:11 | #7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Пожалуйста )
Код:
I'm learning to live...
|
20.12.2013, 17:20 | #8 | |
Новичок
Джуниор
Регистрация: 20.12.2013
Сообщений: 5
|
Цитата:
|
|
20.12.2013, 17:28 | #9 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Отож потому я и говорил что тебе полный исходник, даже если он работает не поможет )
а как забить куда-то что-то читай в учебнике про процедуры read и write
I'm learning to live...
|
20.12.2013, 18:54 | #10 |
Новичок
Джуниор
Регистрация: 20.12.2013
Сообщений: 5
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
пожалуйста напишите на паскале очень нужно | igor278130 | Помощь студентам | 1 | 04.11.2013 22:59 |
напишите пожалуйста задачу в двумерном массиве!? Срочно надо! | dolbi | Помощь студентам | 2 | 28.03.2008 05:09 |