Отсортировать одномерный массив по возрастанию

@Tifani · Регистрация: 23.10.2012

Студворк — интернет-сервис помощи студентам

Pascal

var
 a:array[1..10] of integer;
 i,j,a,b:integer;
begin
 for i:= 1 to 10 do begin
   a[i]:= random(20);
   write(a[i],' ');
   if a[i] > 0 then
     inc(a);
 end;
 writeln;
 writeln;
 for i:= 1 to 9 do
 for j:= i+1 to 10 do
   if a[i] < a[j] then begin
     b:= a[i];
     a[i]:= a[j];
     a[j]:= b;
   end;
end

Это программа для сортировки по убыванию, как её переделать, чтобы получить сортировку по возрастанию? Правильно ли я составила программу?

@brunis · 11.11.2012, 20:04

Pascal

var
 a:array[1..10] of integer;
 i,j,b:integer;
begin
 for i:= 1 to 10 do begin
   a[i]:= random(20);
   write(a[i],' ');
 end;
 writeln;
 writeln;
 for i:= 1 to 9 do
 for j:= i+1 to 10 do
   if a[i] > a[j] then begin
     b:= a[i];
     a[i]:= a[j];
     a[j]:= b;
   end;
  for i:=1 to 10 do write(a[i],' ');
readln;
end.

@Tifani · 11.11.2012, 20:14 **[ТС]**

спасибо =)

Комментарий модератора

правила форума, п.3.6 Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

Опции темы