Question

Дан одномерный целочисленный массив (количество элементов массива вводится с клавиатуры). Необходимо отсортировать элементы массива по возрастанию и вывести на экран. (На языке Pascal)

Answer 1

//FPC 2.6.4

var
  a: array of longint;
  size, i, j: longint;
begin
  randomize;
  writeln('Колво элементов: ');
  readln(size);

  setLength(a, size);
  write('Исходный случайный массив: ');
  for i:=0 to size-1 do
  begin
    a[i]:=random(201)-100;
    write(a[i], ' ');
  end;
  writeln;

  for i:=0 to size-2 do
    for j:=0 to size-i-2 do
      if a[j]>a[j+1] then
      begin
        a[j]:=a[j] xor a[j+1];
        a[j+1]:=a[j] xor a[j+1];
        a[j]:=a[j] xor a[j+1];
      end;

    writeln('Отсортированный массив: ');
  for i:=0 to size-1 do write(a[i], ' ');
  writeln;

end.