задачи на массивы

[Newbie]

в чём я себе противоречу?

Я стер это, т.к. с 1го раза не правильно прочитал) бошка другим забита.

Короче это может длится долго...
доп переменные 2 интеджера)

Код: Выделить всё

uses
 crt;

const
 n = 15;

var
 a: array[1..n] of integer;
 i, c1, c2: integer;

begin
 clrscr;
 randomize;
 c1 := 1;
 c2 := 1;
 for i := 1 to n do
  begin
   a[i] := random(20) - 10;
   GotoXY(i * 3, 1);
   write(a[i]);
   if(a[i] < 0)then
    begin
     GotoXY(c1, 2);
     write(a[i]);
     inc(c1, 3);
    end
    else
      begin
       GotoXY(c2, 3);
       write(a[i]);
       inc(c2,3);
    end
  end;
 readkey;
end.

[Хыиуду]

С определенными извратами (используя WhereX и WhereY / GetX и GetY, уже не помню, как они в crt называются) можно обойтись и одной доп.переменной