Массивы, среднее, поиск

[вадимка]

всем привет!!!!
ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ НА ПАСКАЛЕ.

Найти и выдать на печать все элементы массива A [n] целых чисел которые больше среднего арифметического элементов этого массива.


Удалить из массива М [20] элементы меньшей данного числа Р.Если таких элементов несколько,то удалить первый из них.



В двумернном массиве А[m,n] для каждого нечетного столбца подсчитать количество элементов кратных 4.

ЗАРАНЕЕ СПАСИБО!!!!!!!!!!!!!!!

[Naeel Maqsudov]

1)
...
Avg:=0; //Avg должна быть вещественного типа
For i:=1 to N do Avg:=Avg+A;
Avg:=Avg/N;
For i:=1 to N do if A>Avg then writeln(A);
...