diff options
author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-08-25 15:21:07 +0700 |
---|---|---|
committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-08-25 15:21:07 +0700 |
commit | 95b46c031c06a7e0e2d3744185ea3a6c3fa866bf (patch) | |
tree | 80f62851c407f64002880ba8447577927b6c80e4 /12/TP-HN-2008/R2/HC.pas | |
parent | 2909c2a0841939c8bc544929288b831b2657c2d1 (diff) | |
download | cp-95b46c031c06a7e0e2d3744185ea3a6c3fa866bf.tar.gz |
Revise 12/TP-HN-2008/R2
Diffstat (limited to '12/TP-HN-2008/R2/HC.pas')
-rw-r--r-- | 12/TP-HN-2008/R2/HC.pas | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/12/TP-HN-2008/R2/HC.pas b/12/TP-HN-2008/R2/HC.pas deleted file mode 100644 index 8e6b182..0000000 --- a/12/TP-HN-2008/R2/HC.pas +++ /dev/null @@ -1,23 +0,0 @@ -var - f : text; - m, n, i, j : byte; - a : array[1..200, 0..200] of smallint; - -function out - -begin - assign(f, 'HC.INP'); - reset(f); - readln(f, m, n); - for i := 1 to m do - begin - a[i, 0] := 0; - for j := 1 to n do - read(f, a[i, j]) - end; - close(f); - assign(f, 'HC.OUT'); - rewrite(f); - writeln(f, out(a)); - close(f) -end; |