Question

ПОМОГИТ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ,ПОЖАЛУЙСТА​

Answer 1

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

begin

 var a := Arr(1, -3, 6, -5, -2, 8, -9, 14, 4, 15, 17, 12, 16, 4);

 a.Println;

 var im := a.IndexMax;

 a := a?[:im] + a?[im + 1:];

 a.Println;

 Println('min четный =', a.Where(p-> p.IsEven).Min);

 Swap(a[5], a[11]);

 a.Println;

 a := a[:3] + Arr(12) + a[3:];

 a.Println

end.