Здравствуйте, amelya.kuro!
Мой вариант:
[code lang=pascal]var
x: array[1..10] of integer;
y, z: array of integer;
i, a, b: integer;
begin
a:= 1;
b:= 1;
{создаем массив a}
for i:= 1 to 10 do
begin
x[i]:= random(10);
write(x[i]:3);
end;
writeln;
{ищем чётные номера массива x и создаём новые массивы}
for i:= 1 to 10 do
begin
if (i mod 2) = 0 then
begin
SetLength(y, a + 1);
y[a]:= x[i];
inc(a);
end
else
begin
SetLength(z, b + 1);
z[b]:= x[i];
inc(b);
end;
end;
{выводим массив y}
write('massiv iz chethyx nomerov');
for i:= 1 to a - 1 do
write(y[i]:3);
writeln;
{выводим массив z}
write('massiv iz nechethyx nomerov');
for i:= 1 to b - 1 do
write(z[i]:3);
end.[/code]