Все тот же Pascal

[dinozavr]

Помогите пожалуйста с задачкой,я не понимаю в этом ничего((
const n = 100;
vаr х:аrrау [1..n] of rеаl;
Упорядочить массив х по неубыванию y, используя следующий алгоритм сортировки: сортировка обменом (метод пузырька). Последовательно сравниваются пары соседних элементов xk и xk+1 (k=1,2,3,...,n-1) и, если хk>xk+1, то они переставляются; тем самым наибольший элемент окажется на своем месте в конце массива; затем этот метод применяется ко всем элементам, кроме последнего, и т.д.

[DM_bite]

program Xd;
const n=100;
var a:array [0..n] of real;
    i,j: integer;
    new: real;
    begin
    randomize;
    for i:= 0 to n do
     begin
      a[i]:= random(n);
      end;
      for i:= 0 to n-1 do
       for j:= 0 to n-1 do
        begin
         if a[j]>a[j+1] then
          begin
           new:= a[j];
           a[j]:= a[j+1];
           a[j+1]:= new;
           end;
           end;
           for i:= 0 to n do
           begin
           WriteLn(a[i],' @  ');
           end;
           ReadLn;
           end.

[dinozavr]

Спасибо большое,но такой странный ответ получился?!))

[DM_bite]

Спасибо большое,но такой странный ответ получился?!))

Так тип-то real. Хочешь - округли. Процедура Round.
Строчку

WriteLn(a[i],' @  ');

Замени на

WriteLn(Round(a[i]),' @  ');

[dinozavr]

Эх,препод сказал,что не правильно((

[DM_bite]

Эх,препод сказал,что не правильно((

Что конкретно неправильно?

[dinozavr]

ну что неправильно сортировка прошла,ответ странный,сказал переделать