[nadomnick]

Код:

var
  M[1..x]: Array of integer;  //объявляем массив для помещения элементов
  i,n: integer;
  a: integer; //для цикла - первого и последующего элемента
  k: integer; //для счетчика нечетных чисел
begin
  M:=StrToInt(Edit1.Text);
  k:=0; //обнуляем счетчик четности
  for i:=1 to n do  //объявляем цикл
    begin
      a:=M[i];  //берем элемент последовательности
      if div(a)>0 then  //проверяем на четность
      k:=k+1; //увеличиваем счетчик четности
    end;
  Edit2.Text:=k
end;

Админ: Пользуемся тегами для оформления кода!