Question

Помогите решить задачу(6) в pascal.Заранее спасибо!!!​

Answer 1

===== PascalABC.NET =====

begin

 var x := ArrRandom(20, -99, 99);

 x.Println;

 var (imax, imin) := (x.IndexMax, x.IndexMin);

 var t := (x.First + x.Last) div 2;

 (x[imax], x[imin]) := (t, t);

 x.Println;

 x.Sum.Print

end.