1)Заполнить массив N чисел значениями и вывести на экран произведение чётных элементов массива. 2)Дан массив действительных чисел. Найти максимальный элемент среди отрицательных элементов и поменять его местами с минимальным положительным.

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] < 0)and(mas[i]>max) then begin max:=mas[i];p1:=i;end; //если элемент массива отрицательный и больше max
//записываем его в max и запоминаем его номер
for i:=1 to n do
if (mas[i] > 0)and(mas[i]<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.