Очень срочно надо решить пару задач

[Nik^^]

Pascal
№1
Пусть А-одномерный массив N целых чисел:
а)поменять местами минимальный элемент и минимальный положительный элемент.
б)проверит,является ли пятый отрицательный элемент чётным,а если такого элемента нет-вывести сообщение.
в)исключить из массива все отрицательные элементы
№2
Дана некоторая последовательность С Найти максимальный номер i при котором выполнено нижеследущее условие:
С1=1/1! ,C2=3/2!,C3=5/3!... Ci>6.0e-09
#3
посчитать колличество и распечатать все четырёхзначные натуральные числа,в которых цифра "0" встречается не менее двух раз.
з.ы. решите плиз если можно то выложите код,а то меня нахер выгонят из института=*(
p.s.2 или хотябы похожие задачки выложите плизз)
з.ы.3 У мну ещё пару задачь есть кто хочет подзаработать пишите в личку или асю 384390689

[BSP]

На счет 2 задачки, тебе сюда!
Она похожа, если я смогу свою сделать, то смогу сделать и твою

http://forum.developing.ru/showthread.php?t=12073

[Хыиуду]

№3. Перевести число в строку, пройтись в цикле - если очередной символ 0, увеличить счетчик на 1, если счетчик не меньше двух - вывести число