brauche hilfe dringend
mein thema ein programm schreiben das beliebig viele zahlen sortiert
soviel hab ich bis jetzt doch ich komm net weiter bitte um hilfe
Delphi-Quellcode:
program sortieren;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c,d,e : integer;
begin
writeln('a=?');
readln(a);
writeln('b=?');
readln(b);
writeln('c=?');
readln(c);
writeln('d=?');
readln(d);
writeln('e=?');
readln(e);
if a<b then begin a:=a+b;
b:=a-b;
a:=a-b;
end
else if a<c then begin a:=a+c;
c:=a-c;
a:=a-c;
end
else if a<d then begin a:=a+d;
d:=a-d;
a:=a-d;
end
else if a<e then begin a:=a+e;
e:=a-e;
a:=a-e;
end;
write (a,b,c,d,e);
if b<c then begin b:=b+c;
c:=b-c;
b:=b-c;
end
else if b<d then begin b:=b+d;
d:=b-d;
b:=b-d;
end
else if b<e then begin b:=b+e;
e:=b-e;
b:=b-e;
end;
readln;
{ TODO -oUser -cConsole Main : Hier Code einfügen }
end.
danke schon mal im vorraus
[edit=fkerber]Delphi-Tags gesetzt - bitte nächstes Mal selbst machen. Mfg, fkerber[/edit]