diff options
author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-06 11:13:14 +0700 |
---|---|---|
committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-06 11:13:14 +0700 |
commit | 7de121c4b4ef888a0d1990c27144a7f9dd8c5f94 (patch) | |
tree | 2a298c9a957ad490cf8251ab264413f4effa9dce /12/TP-HN-2008/R2/HC.pas | |
parent | e4767bb46d1d759f9c863704e3f347d2a0c8c49a (diff) | |
download | cp-7de121c4b4ef888a0d1990c27144a7f9dd8c5f94.tar.gz |
Thêm đề HSG 12 huyện Vĩnh Tường, Vĩnh Phúc
Diffstat (limited to '12/TP-HN-2008/R2/HC.pas')
-rw-r--r-- | 12/TP-HN-2008/R2/HC.pas | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/12/TP-HN-2008/R2/HC.pas b/12/TP-HN-2008/R2/HC.pas new file mode 100644 index 0000000..8e6b182 --- /dev/null +++ b/12/TP-HN-2008/R2/HC.pas @@ -0,0 +1,23 @@ +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; |