Name: Anonymous 2012-06-10 13:10
program RandomNumbers;
uses
crt;
const
XMIN = 1;
XMAX = 80;
YMIN = 1;
YMAX = 24;
var
x, y: Integer;
matrix: Array[XMIN..XMAX, YMIN..YMAX] of Integer;
begin
repeat
for x := XMIN to XMAX do
begin
for y:= YMIN to YMAX do
begin
matrix[x,y] := random(9);
write(matrix[x,y]);
end;
end;
until 1 = 2;
end.
uses
crt;
const
XMIN = 1;
XMAX = 80;
YMIN = 1;
YMAX = 24;
var
x, y: Integer;
matrix: Array[XMIN..XMAX, YMIN..YMAX] of Integer;
begin
repeat
for x := XMIN to XMAX do
begin
for y:= YMIN to YMAX do
begin
matrix[x,y] := random(9);
write(matrix[x,y]);
end;
end;
until 1 = 2;
end.