Добавлено (01.05.2014, 17:40)
---------------------------------------------
var
n,n2,n3:integer;
r:array[1..3,1..10,1..10]of integer;
begin
for n:=1 to 3 do
begin

for n2:=1 to 4 do
begin
for n3:=1 to 5 do
begin
r[n,n2,n3]:=random(100);
write(r[n,n2,n3]:3,'');
end;
writeln;
end;
writeln;
end;
end.

Добавлено (01.05.2014, 17:42)
---------------------------------------------
var
n,n2,n3:integer;
r:array[1..3,1..10,1..10]of integer;
begin
for n:=1 to 3 do
begin
for n2:=1 to 4 do
begin
for n3:=1 to 5 do
begin
r[n,n2,n3]:=random(100);
write(r[n,n2,n3]:3,'');
end;
writeln;
end;
writeln;
end;
end.

Добавлено (01.05.2014, 19:57)
---------------------------------------------
var l,p,k:integer;a:array[1..3,1..10,1..10]of integer;
begin
for l:=1 to 3 do
begin
for p:=1 to 4 do
begin
for k:=1 to 5 do
begin
a[l,p,k]:=random(100);write(a[l,p,k]:3,' ');end;writeln;end;writeln;end;
end.