Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- n, m, t, i, j:integer;
- a:array[1..100,1..100] of integer;
- b:array[1..100,1..100] of integer;
- begin
- readln(n,m);
- for i := 1 to n do
- for j := 1 to m do
- read(a[i,j]);
- for i := 1 to n do
- for j := 1 to m do
- read(b[i,j]);
- for i := 1 to n do
- begin
- for j := 1 to m do
- write(a[i,j]+b[i,j] , ' ');
- writeln;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement