[DelphiM0ZG]

И в чём была проблема? Задачка-то элементарная!..

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  Mas: Array[0..99] Of Integer;
  i, n, MaxInd: Byte;

begin
  Repeat
    Write('N = ');
    ReadLn(N); // проверочка ввода количества элементов
  Until (N In [1..100]);

  Dec(N); // отнимаю от N единичку
  Randomize;
  For i:=0 To N Do
    Begin // заполняю массив и вывожу на экран
      Mas[i]:=Random(200)-100;
      WriteLn(Mas[i]);
    End;

  MaxInd:=0; // предполагаю, что максимум - перый элемент
  For i:=0 To N Do // ищу максимум
    If (Mas[MaxInd]<Mas[i]) Then
      MaxInd:=i; // индекс максимального элемента

  WriteLn;
  WriteLn('Max = ', Mas[MaxInd]);
  WriteLn;

  Mas[MaxInd]:=-Mas[MaxInd]; // меняю знак
  For i:=0 To N Do  // вывожу массив на экран
    WriteLn(Mas[i]);

  WriteLn;
  WriteLn('Press ENTER!!!');
  ReadLn;
end.