PDA

Просмотр полной версии : Pascal: Новый массив из нечетных элементов



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

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


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.

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

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

Игорь Акопян
30.01.2006, 10:20
ODD(c[i])
так нечётным должно быть число в массиве, или индекс массива?