daily pastebin goal


a guest Jul 12th, 2018 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.   a : array [1..15,1..20] of longint;
  3.   i, j, n, m, sum : longint;
  4. begin
  5.   readln(n);
  6.   readln(m);
  7.   sum:=0;
  8.   for i:=1 to n do
  9.     for j:=1 to m do
  10.       read(a[i,j]);
  11.       sum:=sum+a[i,j];
  12.   writeln(sum);
  13. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand