Дан одномерный массив A[N].

[lanamoose]

Дан одномерный массив A[N]. Найти max{a2,a4,...a2k}+min{a1,a3,...,a2k +1}.


Помогите пожалуйста составить программу в паскале, или переделать вот эту, чтобы она была с mod. я составляю - она не работает.

var a:array[1..100] of integer;
i,max,min,n:integer;
begin
write('n=');readln(n);
a[1]:=random(40)-20;
a[2]:=random(40)-20;
min:=1;
max:=2;
For i:=1 to n do begin
if i>2 then a[i]:=random(40)-20;
if odd(i) and (a[i]<a[min]) then min:=i;
if not odd(i) and (a[i]>a[max]) then max:=i;
write(a[i]:4);
end;
writeln;
writeln('max+min=',a[max]+a[min]);
readln;
end.

[Mad_Cat]

чтобы она была с mod

а зачем он нужен при определении минимума и максимума