Вывод массива, Вывод массива в порядке возрастания Опции

[Алексей_Рыженко]

Здрасти!!! Я здесь человек новый, но вы меня пожалуйста не игнаируете! Я самостоятель учусь программировать на Паскале. По учебникам... У меня возникла проблема. Надо написать программу которая читает массив чисел, а потом выводит в парядке возрастания. При этом сортировку мы ещё не учили. Помогите!! Мучиюсь уже неделю!

[zZz]

Код

var a:array[1..10]of integer;
i,j,n:integer;
begin
writeln('размерность массива');
readln(n);
for i:=1 to n do readln(a[i]);

for i:=1 to n do
for j:=1 to n do
if (a[i]>a[j]) and (i<j) then
begin {прога просто сравнивает разные
элементы массива с учетом их порядка}
a[i]:=a[i]+a[j];
a[j]:=a[i]-a[j];
a[i]:=a[i]-a[j];
end;
for i:=1 to n do  writeln(a[i]);
end.

примерно так выглядит самая простая для понимания и объяснения сортировка, что-то похожее нам и писала учительница на доске (когда-то давно...)

a[i]:=a[i]+a[j];
a[j]:=a[i]-a[j];
a[i]:=a[i]-a[j];

это просто перестановка двух переменных без использования третьей...

PS/насколько я понимаю, автору темы и нужен примерно такой алгоритм, так что вот...

Сообщение отредактировано: zZz - 27.05.2006 10:22