Advertisement
Guest User

Untitled

a guest
Nov 22nd, 2018
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.34 KB | None | 0 0
  1. var
  2.   a: array[1..100, 1..100] of integer;
  3.   n, m, i, j, k: integer;
  4.  
  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.   for i := 1 to n do
  11.   begin
  12.     k := 0;
  13.     for j := 1 to m do
  14.       if a[i, j] > 0 then begin
  15.         k := k + 1;
  16.       end;
  17.       writeln(k, ' ');
  18.   end;
  19. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement