Developing.ru

[quote]ODD(c[i])[/quote]
так нечётным должно быть число в массиве, или индекс массива?

program noviimassiv;
type mas=array[1..10] of integer;
var i,n,k:integer;
a,b:mas;

procedure vvod(var a:mas; n:integer);
begin
for i:=1 to n do readln(a[i]);
end;

procedure vivod(var a:mas; n:integer);
begin
for i:=1 to n do
write(a[i]:3);
writeln;
end;

procedure ne4(c:mas; f:byte; d:mas; g:integer);
begin
g:=0;
for i:=1 to f do
if ODD(c[i]) then
begin
g:=g+1;
d[g]:=c[i];
end;
end;

BEGIN
writeln('введите кол-во элементов в массиве');
readln(n);
vvod(a,n);
writeln('исходный массив');
vivod(a,n);
ne4(a,n,b,k);
writeln('новый массив из нечетных элементов');
vivod(a,n);
readln;
END.

Здравствуйте.
У меня к вам очень важный вопрос...
Мне нужно выполнить задачку:
"Написать процедуру создания нового массива из нечетных элементов исходного массива. Вывести 2 массива. Используя процедуру, создать 2 новых массива из нечетных элементов. Вывести все массивы."

Вот мой код этой программы:

[code]program noviimassiv;
type mas=array[1..10] of integer;
var i,n,k:integer;
a,b:mas;

procedure vvod(var a:mas; n:integer);
begin
for i:=1 to n do readln(a[i]);
end;

procedure vivod(var a:mas; n:integer);
begin
for i:=1 to n do
write(a[i]:3);
writeln;
end;

procedure ne4(c:mas; f:byte; d:mas; g:integer);
begin
g:=0;
for i:=1 to f do
if ODD(c[i]) then
begin
g:=g+1;
d[g]:=c[i];
end;
end;

BEGIN
writeln('введите кол-во элементов в массиве');
readln(n);
vvod(a,n);
writeln('исходный массив');
vivod(a,n);
ne4(a,n,b,k);
writeln('новый массив из нечетных элементов');
vivod(a,n);
readln;
END.[/code]

Вот.. проблема в том, что исходный массив нормально показывается, а вот новый массив... точнее процедура поиска нечетных элементов у меня не хочет работать.
Что не так ?

Заранее благодарен!