Четность элементов в массиве Pascal

[Brian Spilner]

Добрый день. Нужно написать программу, которая выбирает из массива элементы по двум критериям. 1 - они должны быть из диапазона 16-226 и 2 - они должны быть четными.
Программа вроде должна работать, но в итоге не работает =). Помогите найти ошибку. Код ниже:

program otbor;
uses crt;
var
a:array[1..20] of real;
i,n,k:integer;
x:real;
begin
textcolor(14);
textbackground(0);
clrscr;
writeln('Программа создает массив чисел и выбирает из них те числа,');
writeln('Которые являются четными и принадлежат промежутку от 16 до 226');
writeln;
repeat
write('Введите максимальное количество элементов массива - ');
read(n);
 if (n<=0) or (n>10) then
  begin
   writeln('Ошибка, число эл-тов строго больше 0 и не строго больше 10');
   writeln;
  end;
until (n>0) and (n<=10);
writeln;
writeln('Теперь заполним массив элементами');
writeln;
 for i:=1 to n do
  begin
   write('Сейчас вводим''[',i,']''элемент массива а, равный - ');
   read(a[i]);
  end;
 writeln;
  begin
   textcolor(12);
   textbackground(0);
   writeln('Исходный массив');
    for i:=1 to n do
     write(a[i]:1:1,' ');
    writeln;
    writeln;
  end;
   begin
    textcolor(14);
    textbackground(0);
    k:=0;
     for i:=1 to n do
      if (a[i]>16) and (a[i]<226) then
       begin
        k:=k+1;
       end
      else
       k:=k+0;
     writeln('Число элементов из промежутка 16--226 равно ',k);
   end;
    begin
     x:=0;
      for i:=1 to k do
       if (a[i] mod 2=0) then
        begin
         x:=x+1;
        end
       else
        x:=x+0;
      writeln;
       begin
        textcolor(12);
        textbackground(0);
        writelel('Получившийся массив');
         for i:=1 to x do
          write(a[i],' ');
       end;
    end;
repeat
until keypressed;
end.

Вначале делаем отсев по числам от 16 до 226. Тут все норм, дальше делаем проверку на четность и тут вот косяки. Компилятор постоянно ругается на строчку if (a[i] mod 2=0) then. Смотрел другие коды с аналогичными заданиями, но там реализуют проверку так, а у меня чего-то не работает. =(
Помогите пожалуйста.

[ImmortalAlexSan]

For i:=1 to n do
begin
If (a[i]>16) and (a[i]<226) and (a[i] mod 2=0) then
writenl('Число подходит');

   begin //тут бегин не нужен
    textcolor(14); 
    textbackground(0); 
    k:=0; 
     for i:=1 to n do 
      if (a[i]>16) and (a[i]<226) then 
       begin 
        k:=k+1; 
       end 
      else 
       k:=k+0; 
     writeln('Число элементов из промежутка 16--226 равно ',k); 
   end;//енд не нужен

В коде кое-где есть ненужные бегины и енды. Но это не влияет на правильность...
Должно быть так:

k:=0;
For i:=1 to n do
If (a[i]>16) and (a[i]<226) then
begin
inc(k); //k:=k+1
b[k]:=a[i]; //массив для новых значений, удовлетвор. 1-му условию
end;
x:=0;
For i:=1 to k do
If b[i] mod 2 = 0 then
begin
inc(x);
c[x]:=b[i];
end;
//В итоге получаем исходный массив, массив по 1-му условию и массив по второму условию.

Удачи ;-)

[D@rkD@iver]

так ведьн никакого отсева нет! массив не меняется
протсо считаетя количество подходящих

[ImmortalAlexSan]

 
for i:=1 to n do 
if (a[i]>16) and (a[i]<226) then 
k:=k+1; 
writeln('Число элементов из промежутка 16--226 равно ',k); 
x:=0; 
for i:=1 to k do 
if (a[i] mod 2=0) then 
x:=x+1;

Первый фор:
Шаг 1:
a[1]=18;
k=1;
Шаг 2:
a[2]=24;
k=2;
Шаг 3:
a[3]=25;
k=2;
Шаг 6:
a[3]=30;
k=3;!!!!!!!!!!!!!! ВНИМАНИЕ!
и т.д.
Второй фор:
Шаг 1: (i=1..3) ТАК КАК к=3!
a[1]=18;
mod=0
Шаг 2:
a[2]=24;
mod=0
Шаг 3:
a[3]=25;!!!!!!!!!!!!!!!!!!
mod=1
и т.д.

[Brian Spilner]

Все правлю как указано, но компилятор все равно подчеркивает знак "=" в строке a[i] mod 2=0. =( и выдает "Operand types don't match operator"...

Даже вот, пишу кусочек ( как-будто есть только одно условие - четность ) все равно не пускает дальше a[i] mod 2 = 0; Пример:

program hard;
uses crt;
var
a:array[1..20] of real;
i,n,k:integer;
begin
textcolor(14);
textbackground(0);
clrscr;
repeat
write('Кол-во эл-тов в массиве - ');
read(n);
 if (n<=0) or (n>20) then
  begin
   writeln('ЋиЁЎЄ*');
   writeln;
  end;
until (n>0) and (n<=20);
randomize;
 for i:=1 to n do
  a[i]:=random(225);
 begin
  for i:=1 to n do
   write(a[i]:1:1,' ');
 end;
 k:=0;
  for i:=1 to n do
   if a[i] mod 2=0 then
    begin
     k:=k+1;
    end
   else
    k:=k+0;
repeat
until keypressed;
end.

[ImmortalAlexSan]

Я не вижу, чтобы у вас было написано так, как я сказал - это раз. Два: попробуйте создать новый файл, начал новый проект и/или подключить модуль math. я просто не знаю в чем тут может быть дело. попробуйте в скобки чтоли взять: (a[i] mod 2)=0

[spamer]

и выдает "Operand types don't match operator"...

Проблема в типе элементов массива, т.е. тип элементов должен быть целый:

a:array[1..20] of Integer;

[Grag]

[QOUTE]
1 - они должны быть из диапазона 16-226 и 2 - они должны быть четными.
[/QUOTE]
Для этого вполне достаточно:

for i:=1 to n do
  if (not odd(a[i])) and (a[i] in [16..226]) then
    //a[i] - четное и принадлежит заданному диапазону и делайте с ним что угодно...

[Brian Spilner]

Спасибо всем огромное, разобрался!!!