Дан массив целых чисел. Отсортировать по возрастанию только элементы массива, стоящие в ячейках с нечётными номерами. паскаль.​

urokiiiii urokiiiii    3   10.04.2020 22:06    1

Ответы
Тина132810 Тина132810  13.10.2020 02:09

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 if n.IsEven then

   a := a[::2].Sorted.Interleave(a[1::2]).ToArray

 else

 begin

   var b := a[::2].Sorted;

   var c := b.Last;

   a := (b.Interleave(a[1::2]) + c).ToArray

 end;

 a.Println

end.


Дан массив целых чисел. Отсортировать по возрастанию только элементы массива, стоящие в ячейках с не
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика