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.
У меня тут ввод одномерного или двумерного массива получился что то я не понимаю,а то изза этого дальше двигаться не могу,и есть ли смысл?(