Задача.

[Dantewac]

Пожалуйста,не могли бы вы решить задачу:
Даны x1, x2, …, x8. Определить N – количество x(i) с чётными номерами, меньшими x(1) и x(max)/2

[Mad_Cat]

k:=1;c:=0;
for i:=2 to 8 do begin
if a[i]>a[k] then k:=i;
if  not odd(i) and (a[i]<a[1]) then c:=c+1;
end;
writeln(c);writeln(a[k]/2);