Поменять местами правую и левую часть исходного массива

[антон2]

1.Поменять местами правую и левую часть исходного массива. Получить новый массив Н-чётное.
2.Образовать и вывести 3 новых массива в 1 из которых-положительные, во 2-отрицательные,в 3- нулевые элементы.если таких элементов нет вывести соответствующее сообщение.
ПОМОГИТЕ ПЛИЗ РЕШИТЬ ЭТИ 2 ЗАДАЧИ СРОЧНО!!!!! ПОЖАЛУЙСТА!!!

[IT-man]

//Поменять местами правую и левую часть исходного массива. Получить новый массив Н-чётное.
k:=1;
for i:= n/2 to n do begin
b[k]:=a[i];
inc(k);
for i:=1 to n/2 do begin
b[k]:=a[i];
inc(k);
end;
for i:=1 to k-1 do
writeln(b[i]);
//Образовать и вывести 3 новых массива в 1 из которых-положительные, 
//во 2-отрицательные,в 3- нулевые элементы.если таких элементов нет вывести соответствующее сообщение.
i1:=0;
i2:=0;
i3:=0;
for i:= 1 to n do begin
if a[i]<0 then begin inc(i1);otr[i1]:=a[i];end
else if a[i]=0 then begin inc(i2);nul[i2]:=a[i];end
else begin inc(i3);nul[i3]:=a[i];end;
writeln('---------------------');
if i1=0 then writeln('- net')
else begin 
for i:=1 to i1 do 
writeln(otr[i]);end;
writeln('---------------------');
if i2=0 then writeln('0 net')
else begin 
for i:=1 to i2 do 
writeln(otr[i]);end;
writeln('---------------------');
if i3=0 then writeln('- net')
else begin 
for i:=1 to i3 do 
writeln(otr[i]);end;
writeln('---------------------');

переменные сами объявите!

[антон2]

Сообщение от IT-man

//Поменять местами правую и левую часть исходного массива. Получить новый массив Н-чётное.
k:=1;
for i:= n/2 to n do begin
b[k]:=a[i];
inc(k);
for i:=1 to n/2 do begin
b[k]:=a[i];
inc(k);
end;
for i:=1 to k-1 do
writeln(b[i]);
//Образовать и вывести 3 новых массива в 1 из которых-положительные, 
//во 2-отрицательные,в 3- нулевые элементы.если таких элементов нет вывести соответствующее сообщение.
i1:=0;
i2:=0;
i3:=0;
for i:= 1 to n do begin
if a[i]<0 then begin inc(i1);otr[i1]:=a[i];end
else if a[i]=0 then begin inc(i2);nul[i2]:=a[i];end
else begin inc(i3);nul[i3]:=a[i];end;
writeln('---------------------');
if i1=0 then writeln('- net')
else begin 
for i:=1 to i1 do 
writeln(otr[i]);end;
writeln('---------------------');
if i2=0 then writeln('0 net')
else begin 
for i:=1 to i2 do 
writeln(otr[i]);end;
writeln('---------------------');
if i3=0 then writeln('- net')
else begin 
for i:=1 to i3 do 
writeln(otr[i]);end;
writeln('---------------------');

переменные сами объявите!

СПАСИБО!!!! ОГРОМНОЕ!!!!

[антон2]

блин опиши переменные плиз!!

[IT-man]

приложите сами чуть чуть усилий!