Спрогой на паскале ввести последовательность случайным образом n=12. упорядочить последовательность по убыванию и вывести на экран два наибольших четных и наименьших нечетных числа.

Const n = 12;
var temp:Integer;
var ar:array[1..n] of Integer;
begin
for var i:= 1 to n do
Read(ar[i]);
for var a:= 1 to n do
for var b:= 1 to n do
if (b<n) and (ar[b]<ar[b+1]) then
begin
temp:= ar[b];
ar[b]:= ar[b+1];
ar[b+1]:= temp;
end;
Writeln('Два наибольших '+ar[1]+ ' и '+ar[2]+'.');
Writeln('Два наименьших '+ar[n-1]+' и '+ar[n]+'.');
end.
Жмякаем 'Лучший'