Сортировка одномерного массива, где ошибка в задаче? - PascalABC.NET

Формулировка задачи:

Делал Сортировку одномерного массива... по этому примеру:

                    Листинг программы
                
 
                        
                          
                    
for j:= 1 to N-1 do
    for i:= 1 to N-j do
        if N[i]>N[i+1] then 
    begin
      t:=a[i];
      M[i]:=M[i+1];
      M[i+1]:=t;

То что сделал я.

                    Листинг программы
                
 
                        
                          
                    
program Runja;
var a:array [1..100] of integer;
m,i,j,k:integer;
begin
write ('m:=');
readln (m);
 
for i:= 1 to m do begin
write ('a[',i,']=');
readln (a[i]);
 end;
 
for j:= 1 to m-1 do begin
for i:= 1 to m-j do begin
if a[i]>a[i+1] then begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
write ('  ',a[i]);
end;
end;
end;
end.

ни могу ни как вывести по порядку, какая то белиберда m:=4 a[1]=2 a[2]=5 a[3]=4 a[4]=3 4 3 3

Решение задачи: «Сортировка одномерного массива, где ошибка в задаче?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
for j:=2 to m do
 begin
  for i:=m downto j do
  if a[i-1]>a[i] then
   begin
    k:=a[i];
    a[i]:=a[i-1];
    a[i-1]:=k;
   end;
  end;
for i:=1 to m do
write ('  ',a[i]);

Оцени полезность:

10 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы