Автор: Bronislav

Bronislav — Sat, 04 Aug 2018 13:57:06 +0000

program array_75;//pascalABC.net

begin
  var n := 10;
  var a := Arr(1,2,3,0,4,5,9,6,7,8);
  
  var iMin := a.FindIndex(t -> t = a.Min);
  var iMax := a.FindIndex(t -> t = a.Max);
  
  if iMin > iMax then Swap(iMin, iMax);
  
  a := a[:iMin] + a[iMax:iMin-1:-1] + a?[iMax+1:];
  
  a.Println//1 2 3 9 5 4 0 6 7 8
end.

program array_75;//pascalABC.net

begin

var n := 10;

var a := Arr(1,2,3,0,4,5,9,6,7,8);

var iMin := a.FindIndex(t -> t = a.Min);

var iMax := a.FindIndex(t -> t = a.Max);

if iMin > iMax then Swap(iMin, iMax);

a := a[:iMin] + a[iMax:iMin-1:-1] + a?[iMax+1:];

a.Println//1 2 3 9 5 4 0 6 7 8

end.

Комментарии: Решаем задачи Абрамян на Паскале. Array75

Автор: Bronislav