Небольшая программа

[Владимир Вайдер]

Помогите дописать программу по этому заданию: "Даны 2 массива: А(5) и В(5). Сформируйте массив С, предварительно определив его длину, включая из массивов А и В только нечетные по значению элементы. Выведите на экран массивы А,В,С."

Начал я вот так:

var a,b:array [1..5] of integer;
c: array [1..10] of integer;
i:integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
readln(b[i]);

Правильно ли я начал? Если нет, то помогите дописать.

[Mad_Cat]

k:=0;
for i:=1 to 5 do
if odd(a[i]) then begin inc(k);c[k]:=a[i];end;
for i:=1 to 5 do
if odd(b[i]) then begin inc(k);c[k]:=b[i];end;
For i:=1 to k do write(c[i],' ');

[Владимир Вайдер]

А как программа будет выглядеть полностью? Можете написать?

[Mad_Cat]

var k:integer;
a,b:array [1..5] of integer;
c: array [1..10] of integer;
i:integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
readln(b[i]);
k:=0;
for i:=1 to 5 do begin write(a[i],' ');
if odd(a[i]) then begin inc(k);c[k]:=a[i];end;end;
writeln;
for i:=1 to 5 do  begin write(b[i],' ');
if odd(b[i]) then begin inc(k);c[k]:=b[i];end;end;
writeln;
For i:=1 to k do write(c[i],' ');
readln;
end.

[Владимир Вайдер]

Я попробовал так, как Вы написали, но что-то не получается

На экран не выводятся массивы. Нужно ввести несколько значений, чтобы он что-то вывел. Но даже так, то, что он выводит, не массивы.

[Mad_Cat]

Сейчас я буду ругаться!!!

На экран не выводятся массивы.

Какого хр....(зачеркнуто) черта?
Результат работы программы

1
2
3
4
5
1
2
3
4
5
1 2 3 4 5
1 2 3 4 5
1 3 5 1 3 5

синий - массив А ;Красный -B ;Зеленый-С

Но даже так, то, что он выводит, не массивы.

А что,извините?

[Владимир Вайдер]

Извиняюсь, туплю. Я немного неправильно программу переписал, поэтому там выводилось другое. Теперь все верно. Спасибо большое!