Цикли

[Сашка93]

1) Дано послідовність із N цілих чисел. Визначити, із скількох додатних чисел вона починається.

2) Дано послідовність із N цілих чисел. Визначити, чи є вона спадаючою.

[phomm]

1 Как надо писать просьбы http://programmersforum.ru/showthread.php?t=142379

2 официальный язык форума - русский, будьет добры перевести сейчас и переводить впредь.

3 Пишете только задание, БЕЗ СВОЕГО КОДА - будьте готовы заплатить за программу

[Сашка93]

1) Дана последовательность из N целых чисел. Определить, из скольких положительных чисел она начинается.

2) Дана последовательность из N целых чисел. Определить, является ли она ниспадающей.

[phomm]

выполнен только один пункт моих рекомендаций...
Возможно, у Вас всякие, конечно , сложности и с паскалем и с деньгами, но обычно помощь - не сделать ЗА Вас, а помочь РАЗОБРАТЬСЯ в каком-то вопросе, в плане составления (алгоритмизации) или написания(ну и компиляции с отладкой) программы.

собственно, вот как примерно решаются ваши задачи:

1) а)ввести последовательность (в заранее объявленный массив), либо создать её случайно(в цикле). б) циклом от первого до последнего элемента сравнивать с нулем какждый элемент и запомнить на каком номере элементе число стало отрицательно и прервать цикл. вывести это запомненое число-1.

2) ниспадающая по-ть это когда каждый последующий элемент меньше передыдущего. а) вводим или генерируем последовательность, также как в пред задаче б) в цикле(от первого до предпоследнего эл-та) проверяем если элемент с очередным номером меньше чем следующий, то продолжаем цикл, иначе выходим с надписью - не ниспадающая в) в конце цикла пишем - ниспадающая (это естественно только если цикл раньше не вышел)
если надо с учетом нулей определять, ну что разность элементов = 0 то просто надо поменять > на >=

Если и после этого у Вас трудности, то код для 2 задач я Вам предоставлю, после оплаты 100 рублей на R144673864671 или эквивалента на Z159794452566 (Вы, как я понимаю, с Украины), возможна и альтернативная оплата. Как несложно догадаться - каждая задача по 50 рублей, и это очень скромные мерки