Gymcoswig

Wiki-Quelltext dieser Seite.

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

Testbeispiel Felder<br>

<code id="50b493f7d801e">
procedure felder(a);
 var feld : array[1..10] of integer;
        i,a : integer;
 begin
  for i:=1 to 10 do
   begin
    feld[i]:=i+a;
   end;
 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>