Advertisement
Guest User

Untitled

a guest
Apr 26th, 2018
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.50 KB | None | 0 0
  1. program counter;
  2.  
  3. const n = 10;
  4.  
  5. var
  6.   matrix : array[1..n, 1..n] of integer;
  7.  
  8. function countPositive(row : array of integer) : integer;
  9. var counter : integer := 0;
  10.     i : integer;
  11. begin
  12.   for i := 0 to n - 1 do
  13.     if row[i] > 0 then
  14.       counter := counter + 1;
  15.  
  16.   countPositive := counter;
  17. end;
  18.  
  19. begin
  20.   var i, j : integer;
  21.  
  22.   for i := 1 to n do
  23.     for j := 1 to n do
  24.       read(matrix[i, j]);
  25.      
  26.   for i := 1 to n do
  27.     writeln(countPositive(matrix[i]));
  28.    
  29. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement