Type
M = array[1..4, 1..5] of integer;
var
i,j: integer;
mas: M;
begin
for i := 1 to 4 do
for j := 1 to 5 do
mas[i][j] := i * j;
write(mas[i][j], ' ');
writeln();
end;
end.
Объяснение:
Type
M = array[1..4, 1..5] of integer;
var
i,j: integer;
mas: M;
begin
for i := 1 to 4 do
for j := 1 to 5 do
mas[i][j] := i * j;
for i := 1 to 4 do
begin
for j := 1 to 5 do
write(mas[i][j], ' ');
writeln();
end;
end.
Объяснение: