From 1a8e1e68759611a66ae116771da5f376c95a3b9f Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Sun, 12 Feb 2017 16:18:20 +0700
Subject: Update others/volume1

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

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

diff --git a/others/volume1/029.pas b/others/volume1/029.pas
new file mode 100644
index 0000000..255331f
--- /dev/null
+++ b/others/volume1/029.pas
@@ -0,0 +1,23 @@
+uses sortnfind;
+
+var
+  n, i: int16;
+  p: int64;
+  a, b: array of int64;
+
+begin
+  readln(n, p);
+  setlength(a, n);
+  setlength(b, n);
+  for i := 0 to n - 1 do
+    begin
+      read(a[i]);
+      b[i] := a[i]
+    end;
+  qsort(a);
+  p := a[p - 1];
+  for i := 0 to n - 1 do
+    if b[i] = p then
+      break;
+  writeln(p, ' ', i + 1)
+end.
-- 
cgit 1.4.1