Найти количество четных элементов массива, вывести элементы массива, значение которых попадает в интервал

var
i,n,s,c,d: integer;
Xn: array [1..10] of single;
  begin
     writeln('n='); readln(n); // kol-vo elementov v massive
     for i:=1 to n do begin
     write('Xn(',i,')=');
     readln(Xn[i]);
  end;
  begin
     for i:=1 to n do
    [B] if xn[i] mod 2<>0 then[/B]
     inc(s); // kol-vo chetnih elementov
  end;
     writeln('s=');
  begin
     write('c='); readln(c);
     write('d='); readln(d);
     for i:=1 to n do
     if xn[i]>c and xn[i]<d then 
     writeln(Xn[i]);
    end;
   end.

var
i,n,s,c,d: integer;
Xn: array [1..10] of integer;
  begin
     writeln('n='); readln(n); // kol-vo elementov v massive
     for i:=1 to n do begin
     write('Xn(',i,')=');
     readln(Xn[i]);
  end;
  begin
     s=0;
     for i:=1 to n do
     if Xn[i] mod 2<>0 then inc(s); // kol-vo chetnih elementov
     writeln('s=');
  end;
     
  begin
     write('c='); readln(c);
     write('d='); readln(d);
     for i:=1 to n do
     if (Xn[i]>=c) and (Xn[i]<=D) then writeln(Xn[i]);
    end;
   end.

var
i,n,s,c,d: integer;
Xn: array [1..10] of integer;
 
begin
write('n='); readln(n); // kol-vo elementov v massive
for i:=1 to n do 
    begin
    write('Xn(',i,')=');
    readln(Xn[i]);
    end;
s:=0;
for i:=1 to n do
    if Xn[i] mod 2=0 then inc(s); // kol-vo chetnih elementov
writeln('s=',s);
write('c='); readln(c);
write('d='); readln(d);
for i:=1 to n do
    if (Xn[i]>=c) and (Xn[i]<=D) then write(Xn[i]);
end.

write('Индекс элемента для удаления: '); readln(ind);
for i:=ind to n-1 do
    a[i]:=a[i+1];
dec(n); //или n:=n-1;

for i:=1 to n do
    if i mod 5=0 then a[i]:=0;

begin
     s:=0;
     for i:=2 to n do
     s:=s+Xn[i];
     i:=i+2;
       writeln(s);
  end;

var
i,n: integer;
kol,s,kolvo: real;
Xn: array [1..10] of integer;
  begin
     write('n='); readln(n);
     for i:=1 to n do begin
     write('Xn(',i,')=');
     readln(Xn[i]);
  end;
  begin
      kol := 0;
      s := 0;
      i := 2;
    while i <= n do begin
        s := s + Xn[i];
        kol := kol + 1;
        i := i + 2;
   end;
    kolvo := s/kol;
    write(kolvo);
   begin
      i := n-3;
    while i <= n do begin
      Xn[i] :=kolvo;
      write('Xn(',i,')=');
      i := i+1;
       end;
    end;
    readln;
    end;
   end.

uses crt;
const nmax=100;
var a,i,j,n,kc,np: integer;
    sar: real;
    X: array [1..nmax] of real;
  begin
     write('n='); readln(n);
     for i:=1 to n do
         begin
         write('X(',i,')=');
         readln(X[i]);
         end;
     write('A=');readln(a);
     kc:=0;
     i:=1;
     while (kc=0) and (i<=n) do
           begin
           if X[i]>a then
              begin
              kc:=kc+1;;
              writeln('Первый элемент, больший А=',X[i]:0:1);
              end;
           i:=i+1;
           end;
     if kc=0 then writeln('Нет элемента массива, большего А');
     writeln('Иходный массив');
     for i:=1 to n do
         write(X[i]:0:1,' ');
     writeln;
     i:=1;
     np:=0;
     while (i<=n) do
           begin
           inc(np);
           if np=5 then
              begin
              for j:=i to n-1 do
                  X[j]:=X[j+1];
              n:=n-1;
              np:=1;
              end;
           i:=i+1;
           end;
     writeln('Массив после удаления каждого пятого');
     for i:=1 to n do
         write(X[i]:0:1,' ');
     writeln;
      kc:=0;
      sar:=0;
      i:= 2;
   while i<=n do
          begin
          sar := sar + X[i];
          kc := kc + 1;
          i := i + 2;
          end;
    sar := sar/kc;
    writeln('Среднее арифметическое элементов на четных местах=',sar:0:3);
    for i:=n-2 to n do
        X[i]:=sar;
     writeln('Массив после замены трех последних');
     for i:=1 to n do
         write(X[i]:0:1,' ');
     writeln;
    readln;
   end.