比赛代码 - COGS

比赛	NOIP2008集训模拟2	评测结果	WWWWWWWWWW
题目名称	阿鲁高的远航	最终得分	0
用户昵称	辨机ZN	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-11 11:15:38

显示代码纯文本

program ex(f1,f2);
 type
  zn=array [1..1001] of integer;
 var
  a,b:zn; f1,f2:text;
  i,j,k,p,m,n,l,t,w,v,u,tt,ans:longint;
 begin
  assign(f1,'sail.in'); reset(f1);
  assign(f2,'sail.out'); rewrite(f2);
  readln(f1,t,v,u,w);
  for i:=1 to t do readln(f1,a[i],b[i]);
  for i:=1 to t do ans:=ans+a[i]*b[i];
  writeln(f2,ans);
  for i:=1 to t do writeln(f2,a[i]);
  close(f1);
  close(f2);
 end.