вывести числа в порядке возрастания паскаль

Ответ от Александр Филиппов[активный]
вот программа сортирующая n чисел
uses crt;
const nmax=100;
var a:array[1..nmax] of real;
n,i,j:integer;
x:real;
begin
clrscr;
randomize;
repeat
write('n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив: ');
for i:=1 to n do
begin
a:=10*random;
write(a:5:2);
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a<a[j]>;
a:=a[j];
a[j]:=x;
end;
writeln('Сортировка: ');
for i:=1 to n do
write(a:5:2);
readln
end.
программа с сайта www .cyberforum. ru/ все вопросы туда уважаемый!! ! C AС А
Гуру
(4343)
может вы его неправильно скопировали? или хотябы проверяли?