Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal]Сортировка массива

Автор: programa 12.12.2010, 21:20

Задание
Составить программу упорядочения первых N<=12 элементов массива X
При отладке использовать начальные значения N массива X? а также выполнять форматный вывод первых N элементов массива одной строкой в конце каждого шага во внешнем цикле.
Требования:
Вид сортировки =По возрастанию
Метод=Выбор максимального
Оператор внешнего цикла= for to
Оператор внутреннего цикла= while

осталась последнее задание smile

Код

program dsd;
const n=6;
var a:array[1..n] of integer;
    i,j,imax:byte;
    buf:integer;
begin


writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:5);
 end;
writeln;
writeln;
j:=1;
for i:=1 to n-1 do
  begin
    imax:=i;
    while j<=n do 
    j:=j+1;
  //  for j:=i+1 to n do
  
    if a[j] <a[imax] then 
   
    imax:=j;
    buf:=a[i];
    a[i]:=a[imax];
    a[imax]:=buf;
   
    
  end;
writeln('Упорядоченный по возрастанию  массив: ');
for i:=1 to n do
write(a[i]:5);

end.