[flasher167]

Сообщение от Страдалецъ

Ну че-то многовато мне кажется.
Вот вариант с массивом:

Код:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Var
  Num: Array of Integer;
  i,j: Integer;
begin
 Randomize;
 SetLength(Num, 10);
 for i := 0 to High(Num)
 do begin
    Num[i] := Random(100) - 50;
    WriteLn(Num[i]);
    end;
 i := 0;
 while i <= High(Num)
 do begin
    if Num[i] < 0
    then begin
         SetLength(Num, Length(Num) + 1);
         for j := High(Num) downto i
         do Num[j] := Num[j - 1];
         Num[i] := 22;
         Inc(i);
         end;
    Inc(i);
    end;
 WriteLn;
 for i := 0 to High(Num)
 do WriteLn(Num[i]);
 ReadLn;
end.

нееее так нельзя... уже готовый массив и еще Х= уже задано... все должен пользователь ввести такие правила