нужно исправить ошибку

[Карась]

Как вариант - сортировка....

[TheVenny]

Да отсортировать и вывести, именно это я и хотел сказать.

[puporev]

Сортировка не вариант. Нужна перестановка элементов на нужное место.

uses crt;
var a:array[1..100]of integer;
    n,i,k,j,x:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Ishodnyj massiv:');
for i:=1 to n do
   begin
     a[i]:=random(10)-4;
     write(a[i],' ');
   end;
writeln;
k:=0;
for i:=1 to n do
if a[i] <0 then
      begin
        k:=k+1;
        x:=a[i]; {запоминаем элемент}
        for j:=i downto k+1 do
           begin
            a[j]:=a[j-1];  {сдвигаем массив вправо, освобождаем место}
           end;
        a[k]:=x; {вставляем элемент на место}
      end;
writeln('Rezultat:');
for i:=1 to n do
write(a[i],' ');
readln
end.

[TheVenny]

Спасибо, теперь кажется все правильно.

[Ganmaker]

TheVenny извини, я не подумал, что ты не умеешь сортировать массивы, программа исправлена и дополнена:

program test;
uses
  crt;
var
  n,i,j,max,b:integer;
  a:array[1..25] of integer;
begin
  clrscr;
  write('kol-vo elementov (max=25), n=');
  readln(n);
  randomize;
  writeln;
  for i:=1 to n do
    begin
    a[i]:=random(10*2)-10;
    write(a[i],' ')
    end;
  max:=-100;
  writeln;
  for i:=1 to n do
    for j:=i to n do
      if a[i]<a[j] then
        begin
          b:=a[i];
          a[i]:=a[j];
          a[j]:=b;
        end;
  writeln;
  for i:=1 to n do
    write(a[i],' ');
  readkey;
end.

[puporev]

Ну и нафига ты отсортировал этот массив?

[Serge_Bliznykov]

а он не читает условия задачи... ему лишь бы попрограммировать что-нибудь...

[puporev]

Он уже не в первой завершенной теме влез с "ценными" замечаниями.