Gymcoswig

Aus ProgrammingWiki

Felder am Gymnasium Coswig

Testbeispiel Felder

procedure felder(a:integer);
 var feld : array[0..10] of integer;
        i : integer;
 begin
  for i:=1 to 10 do feld[i]:=i+a;
  for i:=1 to 10 do writeln (feld[i]);
 end;

felder(5);
Gib eine Zahl für a ein..

Suche