[999]

Заменить последний отрицательный элемент массива на модуль первого элемента массива.

Код:

var
     Form1: TForm1;
  N:integer;
  M:array of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
Randomize;
N:=Strtoint(Edit1.Text);
setlength(M,N);
Edit2.Text:=' ';
Edit3.Text:=' ';
for I := 0 to N-2 do
begin
  M[i]:=Round(Sin(Random(10))*10);
  Edit2.Text:=Edit2.Text+'   '+inttostr(M[i])
  end;
   for i := n-1 downto 0 do
   if m[i] < 0 then break;
Edit2.Text:=Edit2.Text+'   '+inttostr(M[i]);
end;
M[n-1]:=abs(m[1]);
Edit3.Text:=Edit3.Text+'   '+inttostr(M[i]);
end