PascalABCNET : Ввести и упорядочить последовательность из N натуральных чисел таким об-разом, чтобы она возрастала до середины, а затем убывала.

Предыдущий
вопрос Следующий
вопрос

program UpDownSequence;

var
N, i, j, temp: integer;
arr: array of integer;

begin
writeln('Введите количество элементов в последовательности: ');
readln(N);

SetLength(arr, N);

writeln('Введите элементы последовательности: ');
for i := 0 to N-1 do
readln(arr[i]);

for i := 0 to N-1 do
begin
for j := i+1 to N-1 do
begin
if arr[i] > arr[j] then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;

for i := 0 to (N-1) div 2 do
write(arr[i], ' ');

for i := N-1 downto (N-1) div 2 + 1 do
write(arr[i], ' ');

end.