Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 21.09.2005 10:42 451

Array ausfüllen - Lösung

procedure TForm1.Button1Click(Sender: TObject);
var zahlen:Array[1..10] of Integer;
    i: Integer;
begin
  for i:=1 to 10 do
    zahlen[i]:=i;
end;