Question

SORTOWANIE BABELKOWE W PASCALU

BARDZO WAZNE!!!!!!!!!!!!!!!!!!

Answer 1

program sortowanie_babelkowe;
   uses crt;
const ilosc=100;
var
  tab:array[1..ilosc] of integer;
  i,j,k,n: integer;
Procedure Zakres ;
begin
writeln('Podaj ilosc liczb');
readln(n);
end;
begin
Zakres;
  for i := 1 to n do
  begin
  writeln('Podaj ',i,' liczbe ');
  readln(tab[i]);
  end;
  for j := 1 to n - 1 do
    for i := 1 to n - 1 do
      if tab[i] > tab[i+1] then
      begin
        k:= tab[i];
        tab[i]:=tab[i+1];
        tab[i+1]:=k;
      end;
  writeln('Liczby posortowane');
  for i := 1 to n do write(tab[i],', ');
  repeat until keypressed;
end.