• Помогите написать программу, пожалуйста :)
    Дана последовательность n целых чисел. Отсортируйте ее.
    Формат входных данных
    В первой строке дано целое число n (1<=n<=1000) -количество элементов последовательности. Во второй строке заданы сами элементы --- целые числа, не превосходящие по абсолютной величине 10^9.Выведите n чисел --- элементы заданной последовательности в порядке неубывания. Через input и output. Язык - Паскаль.

Ответы 5

  • Огромнейшее спасибо :З
  • Чем могу)
  • А можно к вам потом в личку за помощью, если будут вопросы?
    • Автор:

      lyons
    • 6 лет назад
    • 0
  • Само собой)
    • Автор:

      laylah
    • 6 лет назад
    • 0
  • var  n, i, j, AskTheMountains: longint;  a: array of longint;  fl: Text;begin  assign(fl, 'input.txt');  reset(fl);  readln(fl, n);  SetLength(a, n);  for i := 0 to (n - 1) do    readln(fl, a[i]);  close(fl);  assign(fl, 'output.txt');  rewrite(fl);    for i := 0 to n - 1 do    for j := i to n - 1 do      if (a[i] > a[j]) then      begin        AskTheMountains := a[i];        a[i] := a[j];        a[j] := AskTheMountains;      end;  for i := 0 to n-1 do    writeln(fl, a[i]);  close(fl);end.
    • Автор:

      chazcowa
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years