начало программы
const n=10; m=7;
type mas=array [1..n,1..m] of Integer;
procedure Vvodmas(var D:mas);
var i,j:Integer;
begin
for i:=1 to n do
for j:=1 to m do
D[i,j]:=-50+Random(101);
end;
procedure Vivodmas(D:mas);
var i,j:Integer;
begin
for i:=1 to n do
begin
for j:=1 to m do Write(D[i,j]:4);
Writeln;
end;
end;
|
||||||||||||
|
|
|
Похожие вопросы |