Array mit Zufallszahlen

[DeddyH]

Versuch es mal mit Typisieren und Übergabe by Reference (ungetestet).

Delphi-Quellcode:

program min_array;
uses
        crt;
const
        LENGTH = 10;
type
        TZufall = array[0..LENGTH - 1] of integer;
var
        zufall: TZufall;

procedure fillArray(var a: TZufall);
var     i: integer;
begin
        for i := 0 to LENGTH - 1 do
                a[i] := random(100) + 1;
end;

procedure printArray(var a: TZufall);
var     i: integer;
begin
        for i := 0 to LENGTH - 1 do
                writeln(a[i]);
end;


begin
        randomize;
        clrscr;

        fillArray(zufall);
        printArray(zufall);

        readln;
end.