Дана последовательность целых чисел (от -100 до 100) записанных через пробел. Требуется построить эту последовательность по возрастанию

Поделиться:

Дана последовательность целых чисел (от -100 до 100) записанных через пробел. Требуется построить эту последовательность по возрастанию. Входные данные: в первой строке записано целое число N, во вторйо строке последовательность чисел через пробел. Выходные данные: в единственной строке записать последовательность чисел по возрастанию.

code: #pascal
var i, n, x: integer;
    c: array [-100..100] of byte;
begin
  for i := -100 to 100 do c[i] := 0; {эту строку для большинства диалектов паскаля можно убрать}
  readln(n);
  for i := 1 to n do
    begin
      read(x);
      inc(c[x])
    end;
  readln; {для сдачи на сайт, возможно, не требуется}
  for i := -100 to 100 do
    for n := 1 to c[i] do
      write(i, ' ')
end.

автор: Cyborg Drone

Похожие статьи: