Sortowanie przez wybór - Turbo Pascal

program kolejnoscliczbprzezwybor;
uses crt;
var x:array[1..100] of integer;
min,a,i,e,s,d:integer;
begin
clrscr;
writeln('Podaj ile liczb podasz');
readln(a);
writeln('Podaj ',a,' liczb');
for i:=1 to a do readln(x[i]);

for i:=1 to a do
begin
min:=x[i];
for d:=i to a do
begin
if min>x[d] then
begin
min:=x[d];
s:=d;
end;
end;
e:=x[i];x[i]:=x[s];x[s]:=e;
end;

writeln;
for i:=1 to a do writeln(x[i]);
readln;

end.

Dodaj swoją odpowiedź
Informatyka

Algorytmika - wprowadzenie

ALGORYTM to przedstawienie rozwiązania zadania w sposób uporządkowany, tj. z wyszczególnieniem kolejnych czynności.
Opisanie zadania, czyli szukanie związku, jaki zachodzi między danymi a wynikami, nazywamy SPECYFIKACJĄ ZADANIA