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

Автор: Bronislav

Bronislav — Fri, 19 Oct 2018 23:33:48 +0000

program Param13;//pabc.net

procedure Hill(var a: array of integer);
begin
  Sort(a);
  if a.Count.IsOdd then
    a := a[::2] + a[a.High - 1::-2]
  else a := a[::2] + a[::-2]
end;

begin
  var a := Arr(10, 9, 8, 7, 6, 5, 4, 3, 2, 1);
  Hill(a);
  a.Println;//1 3 5 7 9 10 8 6 4 2
end.

program Param13;//pabc.net

procedure Hill(var a: array of integer);

begin

Sort(a);

if a.Count.IsOdd then

a := a[::2] + a[a.High - 1::-2]

else a := a[::2] + a[::-2]

end;

begin

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

Hill(a);

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

end.

Автор: Anton

Anton — Wed, 25 May 2016 14:04:10 +0000

Да, ошибся знаком:
Было:

if A[k2]< A[k2+1] then

1	if A[k2]< A[k2+1] then

Стало:

if A[k2]>A[k2+1] then

1	if A[k2]>A[k2+1] then

Автор: Рустам

Рустам — Wed, 25 May 2016 13:33:46 +0000

В данной программе получается не «холм», а «впадина», так как исходный массив сортируется по убыванию