![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
mfractus |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: ![]() ![]() ![]() |
Здравствуйте уважаемые пользователи ресурса! Прошу помощи в решении задачи.
Ввести файл F из 12 элементов. Определить в нём произведение тех элементов, чей модуль лежит в диапазоне [ 1; 5]. Заранее спасибо! Начал с ввода файла F: program ABC; |
![]() ![]() |
DarkWishmaster |
![]()
Сообщение
#2
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 168 Пол: Мужской Репутация: ![]() ![]() ![]() |
так как у тебя интервал [1:5] а не (1:5) то некоректно использовать
if P=1 then //нету таких чисел потому что если у тебя будет например: 1 9 6 1 -1 -2 7 -1 то произведение будет: 1*1*(-1)*(-1)=1 т.е P=1 но ведь таких чисел 4! А переменая flag смотрит если было произвидено хотя бы одно умножение, если да то очевидно что такие элементы существуют и можно вывести произведение на экран. Сообщение отредактировано: DarkWishmaster - 26.04.2011 22:27 |
![]() ![]() |
![]() |
Текстовая версия | 24.06.2025 13:07 |