У меня к вам очень важный вопрос...
Мне нужно выполнить задачку:
"Написать процедуру создания нового массива из нечетных элементов исходного массива. Вывести 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.
Что не так ?
Заранее благодарен!