From 2f674dc80f0382f1c3178f435714960734dc9d3c Mon Sep 17 00:00:00 2001
From: Nguyễn Gia Phong <mcsinyx@disroot.org>
Date: Sat, 6 Jun 2020 21:33:13 +0700
Subject: Reorganize stuff from secondary school

---
 12/TP-HN-2015/bai2.pas | 54 --------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 12/TP-HN-2015/bai2.pas

(limited to '12/TP-HN-2015/bai2.pas')

diff --git a/12/TP-HN-2015/bai2.pas b/12/TP-HN-2015/bai2.pas
deleted file mode 100644
index 858d2b1..0000000
--- a/12/TP-HN-2015/bai2.pas
+++ /dev/null
@@ -1,54 +0,0 @@
-var
-  n, m, i, b, c, j: word;
-  a: array of word;
-  f: text;
-  bc: array[1..1000, 1..1000] of boolean;
-  bestprice: array[1..1000] of word;
-  v: longint = 0;
-
-
-begin
-  assign(f, 'BAI2.INP');
-  reset(f);
-
-  read(f, n);
-  setlength(a, n);
-  for i := 0 to n - 1 do
-    read(f, a[i]);
-
-  fillchar(bc, sizeof(bc), false);
-  readln(f, m);
-  for i := 1 to m do
-    begin
-      read(f, b, c);
-      bc[b][c] := true
-    end;
-
-  close(f);
-
-  for i := 1 to 1000 do
-    bc[i][1000] := true;
-
-  for i := 1 to 1000 do
-    if bc[1000][i] then
-      begin
-        bestprice[1000] := i;
-        break
-      end;
-
-  for i := 999 downto 1 do
-    begin
-      for j := 1 to bestprice[i + 1] do
-        if bc[i][j] then
-          break;
-      bestprice[i] := j
-    end;
-
-  for i := 0 to n - 1 do
-    inc(v, bestprice[a[i]]);
-
-  assign(f, 'BAI2.OUT');
-  rewrite(f);
-  writeln(f, v);
-  close(f)
-end.
-- 
cgit 1.4.1