[Курганец]

Почему в этом скрипте не выводится массив ? только строкой выводит задание
Перегруппировать элементы массива A(n) следующим образом: в начале массива - все отрицательные, затем - нулевые и в конце - все положительные элементы (с сохранением порядка следования в каждой группе).
Program p4;
Type
MasInt = array[1..255] of integer;
var z:MasInt;
var i,j,k:byte;
var n:integer;
var x:integer;
begin
write('vvedite dliny massiva');
readln(n);
writeln('ishodnii massiv:');
randomize;
for i:=1 to n do
begin
z[i]:=random(51)-25;
write(z[i]:4:2);- тут паскаль просит скобку сразу после четверки ))
end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if z[i]<0 then
begin
k:=k+1;
x:=z[i];
for j:=i downto k+1 do
z[j]:=z[j-1];
z[k]:=x;
end;
if z[i]=0 then
begin
k:=k+1;
x:=z[i];
for j:=i downto k+1 do
z[j]:=z[j-1];
z[k]:=x;
end;
writeln('perestanovka: ');
for i:=1 to n do write(z[i]:4);
readln
end.

[Админ]

не берусь сразу вывод о правильности алгоритма делать - насчет вывода - вообще ничего не показывает? или выводит строку с нулями?
_________________
Отовсюду

[Курганец]

[Админ]

Это может зависеть от версии Паскаля
:4:2 - обозначает, сколько знаков под число отводится, и сколько знаков после запятой вроде (изучал давно .. мелочи не помню)
если все устраивает - оставь просто :4
_________________
Отовсюду

[Курганец]

[Админ]

используй writeln() - тогда будет выводить не стройкой а столбиком
_________________
Отовсюду

[SP]

Я бы ваще начал с задания. Как правильно звучит задание, какие вводные данные?
В чем разница, выводить в строку или в столбик(указан способ вывода в задании)?
_________________
"Сегодня, буквально два дня назад нам дали заключение о том, что-о-о...по экологи...ии-и-и приближается девятое мая." (Чершинцев В.С.)
"Просто нет денег.... Вы держитесь, здоровья вам, хорошего настроения" (Медведев Д.А.)