|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.04.2016, 20:05 | #1 |
Новичок
Джуниор
Регистрация: 20.04.2016
Сообщений: 1
|
программа паскаль: найти сумму всех отрицательных элементов одномерного массива и заменить на это значение первый отрицательный
найти сумму всех отрицательных элементов одномерного массива и заменить на это значение первый отрицательный элемент
|
20.04.2016, 20:37 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
21.04.2016, 10:31 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
я бы суммировал в отдельной переменной и потом явно присваивал нужном элементу. потому что, если, вдруг, условие задачи преподаватель изменит (ну, скажем, на "заменить первый элемент массива на сумму всех отрицательных элементов"), боюсь, что от вашего хитрого трюка с накоплением суммы в самом элементе, придётся отказаться! p.s. два вопроса. 1) зачем a[i]:=-10+random(20); разделять на два оператора? 2) чем f:=n+1 лучше, чем f:=0 ? |
21.04.2016, 10:48 | #4 | |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Цитата:
2) имхо, ничем, "я художник, я так вижу"
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
|
21.04.2016, 11:37 | #5 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
А Вы, вероятно, плохо посмотрели на мой пост.
Посмотрите, пожалуйста, ещё раз. там написано: Код:
Цитата:
В других компиляторах я такого косяка не встречал. Но "лечится" это просто - достаточно первым поместить отрицательное число, как ошибка уйдёт... Цитата:
Последний раз редактировалось Serge_Bliznykov; 21.04.2016 в 11:40. |
||
21.04.2016, 11:52 | #6 | ||
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Цитата:
PS у-у, пока сбегал покурить, Серж уже сообщил эту "новость"
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 21.04.2016 в 11:54. |
||
21.04.2016, 13:25 | #7 | ||
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Цитата:
Цитата:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
FASM: Среди элементов одномерного массива (в сегменте данных) найти наибольший отрицательный и наименьший положительный элементы. | 1234568654321 | Помощь студентам | 1 | 30.04.2015 20:30 |
Дан массив X(N).Найти среднеквадратичное всех элементов массива и заменить этим значение нулевые элементы массива. | sev48fire | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 21.06.2012 23:44 |
Вычислить сумму отрицательных элементов массива. Программа паскаль. | dukkill | Помощь студентам | 3 | 20.11.2011 13:56 |
паскаль - Заменить каждый третий элемент массива на значение суммы всех его элементов. | tanyalove | Помощь студентам | 4 | 26.05.2010 09:55 |
Pascal - Найти сумму всех ее отрицательных элементов и заменить ею все диагональные элементы этой матрицы | NewBi | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 24.04.2010 09:15 |