23.10.2011, 19:57 | #1 (permalink) |
Новичок
Регистрация: 22.10.2011
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
В паскале надо решить))) |
23.10.2011, 19:57 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вам будет очень полезна информация которая находится тут Одномерный массив в Паскале Одномерный массив в Delphi Одномерный массив |
24.10.2011, 06:03 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Примерный алгоритм решения:
заполняете исходный массив, обнуляете переменную X, в цикле анализируем текущий и следующий элементы, причем цикл от 0 до 39, а не до 40 (чтобы не было ошибки). Анализ следующий: если текущий элемент меньше следующего, то X:=1, иначе X:=0. По окончании цикла выводите текущее значение переменной X. |
24.10.2011, 09:30 | #3 (permalink) |
Лесник
Регистрация: 11.10.2011
Сообщений: 338
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 771
|
Я бы задал значение переменной до начвла цикла как 1, а в цикле в случае, если очередное значение несоответствует, менял его на 0 и выходил из цикла
|
24.10.2011, 10:01 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
А кто мешает при 0 прервать выполнение цикла? Вообще, сколько программистов - столько и решений, и каждое будет с точки зрения автора единственно верным
|
24.10.2011, 10:15 | #5 (permalink) |
Лесник
Регистрация: 11.10.2011
Сообщений: 338
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 771
|
Не зря же програмный код приравнивается к творческому произведению
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|