Дан линейный массив. Нужно найти сумму минимального и максимального элемента массива, а также кол-во отрицательных элементов, стоящих на чётных местах, и вывести массив вычеркнув все нечетные значения.

Var a: array [1 ... 1000] of integer; n, i, max, min, amount:integer;

begin

read (n) ;

for i : = 1 to n do

read (a[i]) ;

max : = a[1];

min : = a[1];

amount : = 0;

for i : = 1 to n do

begin

if a[i] > max

then

max : = a[i];

if a[i] < min

then

min : = a[i];

if (i mod 2 = 0) and (a[i] < 0)

then

amount : = amount + 1;

end;

writeln ('Sum of min and max equals ', max + min) ;

writeln ('Amount of numbers below zero and on even places: ', amount) ;

for i : = 1 to n do

if i mod 2 = 0

then

write (a[i], ' ') ;

end.