From a53c4128c29f98b5fdfd9b0e13a3bbe094d975ec Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Sun, 19 Feb 2017 11:37:07 +0700
Subject: Update others/volume1

---
 others/volume1/072.pas | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 others/volume1/072.pas

(limited to 'others/volume1/072.pas')

diff --git a/others/volume1/072.pas b/others/volume1/072.pas
new file mode 100644
index 0000000..40c7ca5
--- /dev/null
+++ b/others/volume1/072.pas
@@ -0,0 +1,24 @@
+var
+  n, c, i, j, idx, max, tmp: int16;
+
+begin
+  readln(n);
+  max := 0;
+  for i := 1 to n do
+    begin
+      tmp := 0;
+      for j := 1 to n do
+        begin
+          read(c);
+          if c = 1 then
+            inc(tmp)
+        end;
+      if tmp > max then
+        begin
+          max := tmp;
+          idx := i
+        end
+    end;
+  writeln(idx, ' ', max)
+end.
+
-- 
cgit 1.4.1