1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

begin
procedure Zufallszahlen (const zahl1, zahl2 : INTEGER);
  VAR a: Array[1..10] of INTEGER;
      m: INTEGER;
      d: REAL;
      BEGIN
        RANDOMIZE;
        FOR i:= 1 TO 10 DO
          BEGIN
            a[i]:= RandomRange (1,10);
            m:=					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure Zufallszahlen;
  VAR a: Array[1..10] of INTEGER;
      m,i: INTEGER;
      d: REAL;
      BEGIN
        RANDOMIZE;
        FOR i:= 1 TO 10 DO
          BEGIN
            a[i]:= Random(100)+1;
            m:= a[1];
            IF a[i]>a[1] then showmessage (INTTOSTR(i));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
max : integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  array : array of integer;
begin
  for i := Low(array) to High(array) do
    if max < array[i] then max := array[i];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  max := 0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  array : integer;
  summe : integer;
  schnitt : integer;
begin
   for i := low(array) to high(array)
    do summe := summe + array[i];
   schnitt := summe div length(array);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
  TIntArray = Array of Integer;

function Maximum(aArray: TIntArray);
var i, tmpmax: Integer;
begin
  if length(aArray) > 1 then
  begin
    tmpmax := aArray[0];
    for i := 1 to length(aArray)-1 do
      if tmpmax < aArray[i] then
        tmpmax := aArray[i];
    result := tmpmax;
  end else
    result := -42; // Fehler !!
end;