Guest User

Untitled

a guest
Jan 20th, 2019
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. for i:=1 to n do
  2. for j:=1 to n do begin
  3. if ((j = 4) AND (i = 1)) OR ((j = 3) AND (i = 2)) OR ((j = 2) AND (i = 3)) OR ((j = 1) AND (i = 4)) then
  4.  
  5. k := k+1;
  6. sum := sum + matrix[i,j];
  7. end;
  8. end;
  9.  
  10. for i:=1 to n do
  11. begin
  12. sum := sum + matrix[i,5-i];
  13. end;
Add Comment
Please, Sign In to add comment