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: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.