Язык не указан, значит делаю на паскале:
Var a:array [1..7,1..7] of integer;
I,j:integer;
Begin
For i:= 1 to 7 do
For j:=1 to 7 do
Read(a[i,j]);
Write(a[i,j]);
Writeln();
End;
End.
Язык не указан, значит делаю на паскале:
Var a:array [1..7,1..7] of integer;
I,j:integer;
Begin
For i:= 1 to 7 do
For j:=1 to 7 do
Read(a[i,j]);
For i:= 1 to 7 do
Begin
For j:=1 to 7 do
Write(a[i,j]);
Writeln();
End;
End.