比赛代码 - COGS

比赛	20091110	评测结果	WWWWWWWWWAWWWWWWWWWW
题目名称	溶液混合	最终得分	5
用户昵称	reamb	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2009-11-10 11:06:36

显示代码纯文本

program peizhirongye;
var
  a,b:array[1..50]of longint;
  n,i,m:longint;
  t:real;
begin
  assign (input,'mix.in');
  reset (input);
  assign (output,'mix.out');
  rewrite (output);
  readln (n);
  for i:=1 to n do
    read (a[i]);
  readln;
  for i:=1 to n do
  begin
    read (b[i]);
    t:=t+b[i]
  end;
  readln;
  readln (m);
  writeln (t:0:5);
  close (input);
  close (output)
end.