Массивы!!!

[--Sashok--]

Помогите пожалуйста, никак не могу разобраться!!!

Условие задачки:

Написать программу, которая вводит с клавиатуры 10 действительных чисел, организовывает их сохранение, а потом определяет количество парных и количество непарных элементов массива.

ВОт что я пишу примерно..

program zadacha3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array [1..10] of real;
      i:integer;
      kilk:integer;
begin
  randomize;
  for i:=1  to 10 do
  begin
    a[i]:=random(10);
    writeln('a[',i,']=');
    if a[i] then write('Chuslo parne') else ('chuslo neparne');
 end;
end.

плиз помогите.я уже не знаю что делать!

[Вадим Мошев]

Что значит "парных"?

[--Sashok--]

это типа 2,4,6,8,10, 12,14,16,18 ,20................................ .....................

[Hacker19_90]

Может чётные нечётные???

[--Sashok--]

ну да ..четные и нечетные!Плиззз помогите а то мне ппц =(

[Obey-Kun]

мда, ну и термин... парные...

[phomm]

program zadacha3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a:array [1..10] of real;
i:integer;
kilk:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(10);
writeln('a[',i,']=');
if odd(a[i]) 
  then write('Chislo nechetnoe')
  else write('chislo chetnoe');
end;
end.

программа вводит с клавиатуры

ты уверен что вы такое проходили :D ?

ну и определись, если юзер вводит с клавиатуры это одно, а у тебя в коде рандомное заполнение массива, причём целыми числами, для вещественных надо бы a[i] := random()*10; , однако, какие нафиг вещественные числа, если тебе надо определить их четность (тупо не скомпилируется из-за ошибки type mismatch - несоответствия типов) ???? ты уж реши наконец ))) на худой конец сделай округление ! как-то так:

...
if odd(round(a[i])) 
  then write('Chislo nechetnoe')
  else write('chislo chetnoe');
...

[Vago]

Сообщение от Obey-Kun

мда, ну и термин... парные...

Им преподают на украинском, в быту они разговаривают на русском (но "чётный" / "нечётный" - не те слова, которые часто услышишь на улице), а почитать дополнительно книжку по арифметике - ну это уж слишком!..

[Obey-Kun]

Понятно, не знал, что на малоросском оно так.

[Vago]

Сообщение от Obey-Kun

... на малоросском ...

На украинском.