Advertisement
Guest User

Untitled

a guest
Jan 17th, 2020
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. var
  2. n, m, t, i, j:integer;
  3. a:array[1..100,1..100] of integer;
  4. b:array[1..100,1..100] of integer;
  5. begin
  6. readln(n,m);
  7. for i := 1 to n do
  8. for j := 1 to m do
  9. read(a[i,j]);
  10.  
  11. for i := 1 to n do
  12. for j := 1 to m do
  13. read(b[i,j]);
  14.  
  15. for i := 1 to n do
  16. begin
  17. for j := 1 to n do
  18. write(a[i,j]+b[i,j] , ' ');
  19. writeln;
  20. end;
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement