Advertisement
Guest User

Untitled

a guest
Apr 4th, 2020
150
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.20 KB | None | 0 0
  1. var a: array [1..100, 1..100] of integer;
  2. n,i,l,k: integer;
  3. begin
  4. k:=0;
  5. read(n);
  6. for i:= 1 to n do
  7. begin
  8. for l:= 1 to n do
  9. begin
  10. read (a[i,l]);
  11. if a[i,l]=1 then  k:=k+1;
  12. end;
  13. end;
  14. write(k);
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement