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

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Ответить
royksoppster
Сообщения: 2
Зарегистрирован: 28 янв 2006, 23:52

28 янв 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.
Вот.. проблема в том, что исходный массив нормально показывается, а вот новый массив... точнее процедура поиска нечетных элементов у меня не хочет работать.
Что не так ?

Заранее благодарен!
Аватара пользователя
Игорь Акопян
Сообщения: 1419
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

30 янв 2006, 10:20

ODD(c)

так нечётным должно быть число в массиве, или индекс массива?
Изображение
Ответить