ИКТ!!!Паскаль!!!ПРОШУ ПОМОГИТЕ!!!
_______________________________
Задача: Сортировка массива методом "пузырька".
Переменные: mas,k,n,i,j (все типа integer)
Этапы решения:
1)ввод размера (n)
2)ввод массива (с помощью random)
3)вывод первоначального массива на экран
4)сортировка
5)вывод нового массива

Огромное спасибо! А у меня вопрос: как можно отсортировать массив,чтобы он шел по убыванию?

Вместо знака ">" использовать знак "<".

var a:array[1..100] of integer;n,i,k,c:integer; beginRandomize;write('n = '); readln(n);Writeln('Исходный массив:');for i:=1 to n do begin a[i]:=random(100); write(a[i]:6); end;writeln; for k := 1 to n-1 do    for i := n-1 downto k do      if a[i] > a[i+1] then        begin         c:=a[i];         a[i]:=a[i+1];         a[i+1]:=c        end;Writeln('Отсортированный массив:');for i:=1 to n do write(a[i]:6);writeln;end.Пример:n = 15Исходный массив:    10     0    59    85    98    71    72    55    29    50    54    27    34    56    73Отсортированный массив:     0    10    27    29    34    50    54    55    56    59    71    72    73    85    98