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

[Kosnikov]

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

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

 

[NamiD]

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

 

[Vladimir_S]

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

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

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

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

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

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