Reorganize stuff from secondary school

1 files changed, 0 insertions, 31 deletions

diff --git a/09/TP-HN-2014/cau2.pas b/09/TP-HN-2014/cau2.pas
deleted file mode 100644
index aed61ed..0000000
--- a/09/TP-HN-2014/cau2.pas
+++ /dev/null
@@ -1,31 +0,0 @@
-var
-  f: text;
-  n, i, j: smallint;
-  d: longint;
-  v: array of smallint;
-  t: array of real;
-
-begin
-  assign(f, 'CAU2.INP');
-  reset(f);
-  readln(f, n, d);
-  setlength(v, n);
-  for i := 0 to n - 1 do
-    read(f, v[i]);
-  close(f);
-
-  setlength(t, n);
-  for i := 0 to n - 1 do
-    t[i] := i + d / v[i];
-
-  d := 0;
-  for i := 1 to n - 1 do
-    for j := 0 to i - 1 do
-      if t[i] < t[j] then
-        inc(d);
-
-  assign(f, 'CAU2.OUT');
-  rewrite(f);
-  writeln(f, d);
-  close(f)
-end.