Advertisement
Guest User

1+2=3

a guest
Apr 19th, 2018
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.61 KB | None | 0 0
  1. const n=5; m=5;
  2. var i,j: integer;
  3. a: array [1..n, 1..m] of integer;
  4. b: array [1..n, 1..m] of integer;
  5. c: array [1..n, 1..m] of integer;
  6. begin
  7. randomize;
  8. for i:=1 to n do begin
  9. for j:=1 to m do begin
  10. a[i,j]:=random(20)-10;
  11. b[i,j]:=random(20)-10;
  12. end;
  13. end;
  14.  
  15. for i:=1 to n do begin
  16. for j:=1 to m do begin
  17. write(a[i,j]:3);
  18. end;
  19. writeln;
  20. end;
  21. writeln;
  22. writeln;
  23.  
  24. for i:=1 to n do begin
  25. for j:=1 to m do begin
  26. write(b[i,j]:3);
  27. end;
  28. writeln;
  29. end;
  30. writeln;
  31. writeln;
  32.  
  33. for i:=1 to n do begin
  34. for j:=1 to m do begin
  35. c[i,j]:=a[i,j]+b[i,j];
  36. write(c[i,j]:3);
  37. end;
  38. writeln;
  39. end;
  40.  
  41.  
  42.  
  43. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement