Программирование циклических алгоритмов в Pascal

Ребята, вы чо!!!

Чётность в теории чисел — характеристика целого числа, определяющая его способность делиться нацело на два. (c) http://ru.wikipedia.org/wiki/Чётные_и_нечётные_числа

Юлиана, а вы уверены, что "Задана последовательность из n вещественных чисел. "? Если да, то или преп проверял ваши знания, или ...

Предположим, что последовательность задана массивом Arr размерностью 1..Size.
Тогда:

KolNech := 0;
for i := 1 to Size do
  if Odd( Arr[ i ] ) then
    Inc(KolNech);
WriteLn('Нечётных элементов ', KolNech);
WriteLn('Чётных элементов ', Size - KolNech);

в цикле проверить
k:=0;
for i:=1 to n do
if a [ i ] mod 2 =0 then k:=k+1;
writeln(' четных = ';k,' не четных = ',n-k);

for j:=1 to n do
if odd(a[j]) then inc(nechet);
chet := n - nechet;

Допустим у нас есть последовательность из N вещественных чисел.

program prj1;
const N = 10;
var A: array[1..N] of real;
   i,k: integer;
begin
   randomize;
   for i:=1 to N do A[ i ]:=(random(10) + 1) / (random(3) + 1); // Заполняем массив вещественными числами
   k:=0; // В этой переменной будет храниться количество четных элементов
   for i:=1 to N do begin
      if (A[ i ] mod 2) = 0 then k:=k + 1; // Проверяем если остаток от деления на 2 равен 0, то это четное число
   end;
   writeln('Количетво четных: ', k);
   writeln('Количетво нечетных: ', N - k);
   readln;
end.

Если у нас всего N чисел, из них k четные, то соответственно N - k - нетных элементов.