Цитата:
Сообщение от avatar3000
program labo4;
Const n = 2; m = 2;
Type omA = Array[1..m] Of integer;
dmA = Array[1..n] Of omA;
Var v : omA;
a : dmA;
Const h = 2; t = 2;
Type omB = Array[1..h] Of integer;
dmB = Array[1..t] Of omB;
Var p : omB;
f : dmB;
I,J,x:integer;
begin
for i:=1 to n do
for j :=1 to m do
readln ( v [ i ]);
for i:=1 to h do
for j :=1 to t do
readln ( p [i]);
end.
У меня тут ввод одномерного или двумерного массива получился что то я не понимаю,а то изза этого дальше двигаться не могу,и есть ли смысл?(
|
program labo4;
Const n = 2; m = 2;
Type omA = Array[1..m,1..n] Of integer;
Var v : omA;
Const h = 2; t = 2;
Type omB = Array[1..h,1..t] Of integer;
Var p : omB;
I,J,x:integer;
begin
for i:=1 to m do
for j :=1 to n do
readln ( v [ i ,j]);
for i:=1 to t do
for j :=1 to h do
readln ( p [i,j]);
for i :=1 to m do
for j :=1 to n do
write ( v [ i,j ]:4);
writeln;
for i :=1 to t do
for j :=1 to h do
write ( v [ i,j ]:4);
writeln ;
end.
Вот немного по другому,но он не разделяет на матрицу A и B,да вообще как то не тк все