Определить N-количество Xj c четными номерамиб меньшими X1 и Xmax/2

[дайкири]

Даны X1,X2,...,X8
Определить N-количество Xj c четными номерамиб меньшими X1 и Xmax/2

[maladoy]

Program vos;
Uses Crt;
Var i,n:integer;
    vsp:integer;
    a:array[1..8] of integer;
begin;
clrscr;
n:=0;
vsp:=-999;
for i:=1 to 8
begin
a[i]:=random(132);
if a[i]>vsp then vsp:=a[i]
write(' ',a[i]);
end;
 i:=2;
 while i<=8 do
 begin
 if (a[i]<a[1]) and (a[i]<vsp/2) then n:=n+1;
 i:=i+2;
 end;
 writeln(n);
 readln;
End.

Xmax/2 надо определить или меньше его?

[Sazary]

uses crt;
const m=8;
var
x : array[1..m] of real;
i,n : integer;
max : real;
begin
clrscr;
for i:=1 to m do
 begin
 write('x[',i,']= ');
 readln(x[i]);
 if i=1 then max := x[i]
 else if x[i]>max then max := x[i];
 end;
writeln;
n := 0;
max := max / 2;
for i:=1 to m do
 if i mod 2 = 0 then
  if (x[i]<x[1]) and (x[i]<max) then inc(n);
writeln('n= ',n);

readln;
end.

ps не успел..

[дайкири]

меньшими X1 и Xmax/2

[дайкири]

определять не надо

[дайкири]

саасибооо=*