Задачи по Pascal

[YuliaK]

Здравствуйте.Пожалуйста,помогите решить задачи.Буду очень благодарна!

1)в интервале [0,20] подсчитать количество четных чисел и чисел,которые делятся на 3.
2) Вычислить сумму чисел s=1/(p+2)+2/(p+2)+3/(p+2)+...+p/(p+2).
3) дан массив.найти количество элементов отличных от 0.
4) вывести таблицу значений функции y=sin(x) в интервале -1..1
5) найти среднее арифметическое 5 чисел,введенных с клавиатуры.решение оформить с помощью подпрограммы.
6)составить программу,которая для введенных чисел из диапазона 1..100 печатает грамматически верно фразу «Я прочитал k книг».
7)найти значение выражения z=/3x-4/, при -100<x<0 и значение z=x-sqr(x), при 0<x<=100
8)даны два действительных числа x и y, не равные друг другу.меньшее из этих чисел заменить удвоенным произведением.
9)найти разницу между наибольшим и наименьшим из 5 чисел,введенных с клавиатуры.
10)решить пример: q=b+a^3,где a и b генерируются случайным образом в диапазоне -100..10
11)найти сумму чисел кратных 5 из x,y,z
12)вычислить произведение чисел кратных 5 ряда от 1 до n.
13)вывести таблицу умножения на любое число, введенное с клавиатуры.
14)найти прощадь треугольника по формуле Герона.решение оформить в виде подпрограммы.
15)составить программу,которая для любого натурального числа 1-1000 печатает количество цифр в записи этого числа.
16)дан массив.найти сумму его положительных элементов.
17)в интервале [0,20] подсчитать количество четных чисел и чисел,которые делятся на 3.
18)решить пример: q=a^2+√b, где a и b вводятся с клавиатуры.

[Хыиуду]

Большинство из этого делается в 3-4 строчки, но помочь вам решить - это одно, а делать за вас 18 задач - это другое. Учитывая, что это 100% учебные задачи, поскольку практического смысла в них нет, то варианта два - либо вы хотите, чтобы кто-то это сделал за вас (и это с вероятностью выльется в товарно-денежные отношения), либо вы хотите научиться решать такие задачки самостоятельно, тогда задавайте конкретные вопросы, типа "как проверить делимость числа на 3", поможем.