Gymcoswig

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
== Felder am Gymnasium Coswig==

Testbeispiel Felder<br>

<code id="50b493f7d801e">
 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;
</code>

<run id="50b493f7d8087">
felder(5);
Gib eine Zahl für a ein..
</run>

<check>
Gib eine Zahl für a ein..
</check>