diff options
Diffstat (limited to '12/TP-2008/R2/HC.pas')
-rw-r--r-- | 12/TP-2008/R2/HC.pas | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/12/TP-2008/R2/HC.pas b/12/TP-2008/R2/HC.pas deleted file mode 100644 index 8e6b182..0000000 --- a/12/TP-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; |