begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
var i := a.Select(t -> Abs(t)).ToArray.IndexMax;
a[i] := -a[i];
a.Println
end.
Решение в стиле турбо-паскаля или фрипаскаля, со статическим массивом
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
var i := a.Select(t -> Abs(t)).ToArray.IndexMax;
a[i] := -a[i];
a.Println
end.
Решение в стиле турбо-паскаля или фрипаскаля, со статическим массивом