Дан массив из 20 целостных элементов. Написать программу, которая подсчитывает и выводит на экран сумму и количество всех положительных элементов.

В программе описан двумерный массив A следующим образом
const N=5; M=6;
Type ARR=array[1..N,1..M] of integer;
var A: ARR;

Определить, как изменится в программе массив в результате вызова процедуры PAR(A).
procedure PAR(var A:ARR):
var I,J,MAXA,MINA,MAXI,MINI,B: integer;
begin MAXA:=A[1,1]; MINA:=A[1,1]; MAXI:=1; MINI:=1;
for I:=1 to N do
for J:=1 to M do
if A[I,J]>MAXA then
begin MAXA:=A[I,J]; MAXI:=I end
else if A[I,J] begin MINA:=A[I,J]; MINI:=I end;
if MAXI<>MINI then
for J:=1 to M do
begin B:=A[MAXI,J]; A[MAXI,J]:=A[MINI,J]; A[MINI,J]:=B end
end;

придумать и решить задачу с применением условия "or".

1)все неотрицательные элементы.
2)все элементы не превышающие числа 10

№2
дан массив целых чисел.Напечатать:
1)все элементы кратные 5
2)все элементы заканчивающиеся 0

по весу части. Как это сделать?

ОЧЕНЬ СРОЧНО!
Напишите программу, которая получив число ,выводит на экран соответствующий день недели. Например, ввели число 2, программа должна вывести "вторник". Если число не выходит за пределы 1...7, то должно быть выведено сообщение , сто такого дня нет.

Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.

2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.