1:
2:
3:
4:
5:

var
arr : array[1..100] of integer;

//Hinzufügen
arr[gewünschter_index]:=1909;					

1:
2:

TYPE Ta = Array[-100..100] of Boolean;
VAR a, b: Ta;					

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

var z1,z2,z3,z4,z5,z6,z7,z8,
    z9,z10,z11,z12,z13,z14,z15: integer;
BEGIN
randomize;  // auf antrag von Koller 
 z1  := random(100) 
 z2  := random(100) 
 z3  := random(100) 
 z4  := random(100) 
 z5  := random(100) 
 z6  := random(100) 
 z7  := random(100) 
 ...
 z15 := random(100) 
end;					

1:
2:
3:
4:
5:
6:
7:

..
var a: array[1..15] of Integer;
    i: byte;
begin
randomize;  // auf antrag von Koller  
for i := 1 to 15 do
  z[i] := random(100);					

1:

edit1.text:=arr[3];//ausgeben des dreitten Elements im Array					

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

for i:=1 to 6 do //Array füllen mit 0 d.h: alle 6 Elemente kriegen die 0 zugewiesen(muss nicht sein)
begin
zahl[i]:=0
end;

randomize;

repeat
a:=random(49)+1;      
b:=random(49)+1;
c:=random(49)+1;
d:=random(49)+1;
e:=random(49)+1;
f:=random(49)+1;
until (b<>a)and(c<>a) and (c<>a)and(c<>b)and(d<>a)and(d<>b)and(d<>c)and(e<>a)and(e<>b)and(e<>c)and(e<>d)and(f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e);
//Die schleife läuft solange, bis alle variablen ungleich sind					

1:
2:

var  
arr : array[1..100,1..100] of integer;