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] 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 и запоминаем его номер

t:=mas[p1]; mas[p1]:=mas[p2]; mas[p2]:=t; / /меняем элементы местами

writeln;

for i:=1 to n do

write (mas[i],' '); / /выводим полученный массив на экран

end.