Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type zahl=array of integer;
SetLentgh= Zahl, 1000);
var z:zahl; i,j,x: integer;
begin
for i:=1 to 5 do
begin write (i, 'Zahl'); readln (z[i]); end;
for j:=1 to 4 do
begin for i:=j+1 to 5 do
begin if z[j]<z[i] then begin
x:=z[i]; z[i]:=z[j]; z[j]:=x; end;
end;
writeln;
for i:=1 to 5 do write (z[i]);
readln;
{ TODO -oUser -cConsole Main : Hier Code einfügen }
end;
end.
das es bei null beginnt, heißt ja nur, dass bei tausend möglichen zahlen dann 999 angegeben werden, oder?
und wenn man nur 38 eingibt geht das auch?
ach man, ich versteh das nicht
"bist du eigentlich schon fertig"
das sagt ihr so leicht .. bis jetzt kann ich mit delphi gerade mal zwei zahlen addieren ..