Компьютерные и видео игры

Помогите написать задачки в паскале:

Вторник, 31 Авг 2010, admin

Новые молодежные прикольное детских фото смеялся от души!

Доброго времени суток. 1. Сортируете массив по убыванию и берете второй элемент. Если массив сортировать нельзя, то формируете вспомогательный массив индексов и работаете с ним. 2. Так же, как и предыдущую. Отсортировать и подсчитать число одинаковых в начале. 3. В цикле просматриваете массив и суммируете отрицательные. 4. Так же, как и предыдущая, только не суммируете, а перемножаете. 5. Или сортируете и считаете сколько элементов превосходят 175, или сразу в цикле ведете подсчет if H > 175 then N := N + 1; 6. Так же как и пятая, только условий два if (P > 50) and (P <= 57) then ... 7. Находите сумму и число отрицательных и делите первое на второе, при условии, что второе больше нуля. 8. Устанавливаете счетчик в ноль, затем в цикле если, очередной элемент отрицательный, наращиваете его. В противном случае, щапоминаете значение счетчика и сбрасываете его. После завершения цикла выводите результат. 9. Так же, как и 8, только условие другое. 10. См. выше. 11. В массиве находите максимальные среди четных и нечетных элементов и вычитаете одно из другого. Четность можно проверить функцией Odd(x), которая возвращает True для нечетного, или проверить остаток от деления на 2 if x mod 2 = 0 then четное. 12. Тоже пара вариантов. Или искать максимум среди отрицательных, или отсортировать и вывести первый отрицательный. 13. for i:=1 to N div 2 do P := P * (A[2*i-1] + A[2*i]); Удачи!