Update others/volume1

1 files changed, 29 insertions, 0 deletions

diff --git a/others/volume1/038.pas b/others/volume1/038.pas
new file mode 100644
index 0000000..a89142a
--- /dev/null
+++ b/others/volume1/038.pas
@@ -0,0 +1,29 @@
+var
+  n, l, h, l0, h0, len: int16;
+  a: array of int32;
+
+begin
+  readln(n);
+  setlength(a, n);
+  for l := 0 to n - 1 do
+    read(a[l]);
+  len := 0;
+  l0 := 0;
+  h0 := 0;
+  l := 0;
+  while l < n do
+    for h := l to n - 1 do
+      if (h = n - 1) or
+         ((a[h] mod a[h + 1]) * (a[h + 1] mod a[h]) > 0) then
+        begin
+          if len < h - l then
+            begin
+              len := h - l;
+              l0 := l;
+              h0 := h
+            end;
+          l := h + 1;
+          break
+        end;
+  writeln(l0 + 1, ' ', h0 + 1)
+end.