Witajcie. Pisze w Turbo Pascal 7 , jest to mój chyba 3 program, na lekcji mieliśmy coś takiego jak "witaj świecie". Z racji że programowałem wcześniej w c++ i troszkę w pythonie poczytałem kurs pascala i wziąłem się za sort.
program sortowanie;
var
i,j,temp:integer;
tab:array[1..10] of integer;
BEGIN
write('Podaj 10 liczb calkowitych: ');
for i:=1 to 10 do
begin
read(tab[i]);
end;
for i:=1 to 10 do
begin
for j:=i to 10 do
begin
if(tab[i] > tab[j]) then
begin
temp:= tab[i];
tab[i]:= tab[j];
tab[j]:= temp;
end;
end;
end;
writeln('Posortowane liczby to: ');
for i:=1 to 10 do
begin
write(tab[i], ' ');
end;
END.