Здравствуйте, 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}
writeln('vvedite chisla massiva');
for i:= 1 to 10 do
begin
readln(x[i]);
end;
writeln;
for i:= 1 to 10 do
begin
write(x[i]:3);
end;
writeln;
{ищем положительные элементы массива x и создаём новые массивы}
for i:= 1 to 10 do
begin
if x[i] < 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 otrichatelnih elementov');
for i:= 1 to a - 1 do
write(y[i]:3);
writeln;
{выводим массив z}
write('massiv iz polozhitelnih elementov');
for i:= 1 to b - 1 do
write(z[i]:3);
end.[/code]