Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a: array[1..100, 1..100] of integer;
- n, m, i, j, k: integer;
- begin
- readln(n, m);
- for i := 1 to n do
- for j := 1 to m do
- Read(a[i, j]);
- for i := 1 to n do
- begin
- k := 0;
- for j := 1 to m do
- if a[i, j] > 0 then begin
- k := k + 1;
- end;
- writeln(k, ' ');
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement