Turbo Pascal 8, дано натуральное число n

Kosnikov · 25.10.2011, 00:16

Доброй ночи!
не знаю как решить задачу,кто нибудь знает что надо делать?
задача такая: дано нат. число n,целые числа а,х,...xnЕсли в последовательности x,...xn имеются хотя бы 1 член,равный а,то получить сумму всех членов следущих за ним в противном случаи ответ должен быть.

NamiD · 25.10.2011, 19:49

В цикле пишешь условие: если очередной член последовательности равен а, то присваиваешь какой-либо переменной-флагу значение 1 и делаешь проверку: если флаг =1, то переменной S (сумма) присваиваешь значение S = S+x[n]
P.S. не помню синтаксиса паскаля, ну думаю разберешься как вышеприведенное выражение там написать =)
(возможно S:=S+x[n]; )

Vladimir_S · 25.10.2011, 20:21

Да ёлки-палки, в конце концов, будете вы, черти, хотя бы читать то, что вываливаете на форумы?!!!

Один пишет:

Цитата:

Сообщение от Kosnikov

в противном случаи ответ должен быть.

Каким, трам-тарарам, он "должен быть"? "Да, я согласна стать вашей женой", что ли?
Другой и вовсе какую-то сверхахинею выдает:

Цитата:

если минимальный и максимальный элемент этого массива равен 0, то поменять эти элементы местами.

Прекрасное занятие - менять местами нуль с нулём!

А ну вас к чертовой матери - надоели, лоботрясы!

25.10.2011, 00:16	#1 (permalink)
Kosnikov Новичок Регистрация: 11.10.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Turbo Pascal 8, дано натуральное число n Доброй ночи! не знаю как решить задачу,кто нибудь знает что надо делать? задача такая: дано нат. число n,целые числа а,х,...xnЕсли в последовательности x,...xn имеются хотя бы 1 член,равный а,то получить сумму всех членов следущих за ним в противном случаи ответ должен быть.

25.10.2011, 00:16
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Прочитайте, и я уверен, что ситуация станет ясней Cтек, Turbo Pascal Turbo Pascal. Оператор CASE Синтаксический анализатор. Turbo Pascal Помогите решить задачи в Turbo Pascal Стек в Turbo Pascal Программка со строковым типом данных, Turbo Pascal

25.10.2011, 19:49	#2 (permalink)
NamiD Изучающий Регистрация: 17.08.2010 Сообщений: 305 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 174	В цикле пишешь условие: если очередной член последовательности равен а, то присваиваешь какой-либо переменной-флагу значение 1 и делаешь проверку: если флаг =1, то переменной S (сумма) присваиваешь значение S = S+x[n] P.S. не помню синтаксиса паскаля, ну думаю разберешься как вышеприведенное выражение там написать =) (возможно S:=S+x[n]; )

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070