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

Первая задача
var
a:array[1..100] of integer;
i,n,s:integer;
begin
read(n);
s:=1;
for i:=1 to n do
begin
a[i]:=random(10);
if i mod 2=0 then
begin
s:=s*a[i];
end;
end;
end.