1)Заполнить массив N чисел значениями и вывести на экран творенье чётных

program zz1;
const n=10; //задаем значение n
var mas:array[1..n] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to n do
mas[i]:=random(20); //наполняем массив числами случайными
for i:=1 to n do
if mas[i] mod 2= 0 then p:=p*mas[i]; //если элемент массива четный умножаем его на p
write(p); //выводим ответ
end.

program zz2;
const n=10; //задаем значение n
var mas:array[1..n] of integer;
i,p1,p2,t,max,min:integer;
begin
max:=-10000;min:=10000;
for i:=1 to n do
mas[i]:=random(21)-10; //наполняем массив числами случайными от -10 до +10
for i:=1 to n do
write(mas[i], ); //выводим начальный массив на экран
for i:=1 to n do
if (mas[i] lt; 0)and(mas[i]gt;max) then begin max:=mas[i];p1:=i;end; //если элемент массива отрицательный и больше max
//записываем его в max и запоминаем его номер
for i:=1 to n do
if (mas[i] gt; 0)and(mas[i]lt;min) then begin min:=mas[i];p2:=i;end; //если элемент массива положительный и меньше min
//записываем его в min и запоминаем его номер
t:=mas[p1];mas[p1]:=mas[p2];mas[p2]:=t; //меняем элементы местами
writeln;
for i:=1 to n do
write(mas[i], ); //выводим приобретенный массив на экран
end.