关闭

陶陶摘苹果

169人阅读 评论(0) 收藏 举报
分类:
program taotao;
var a:array[1..10]of integer;
    i,s,y:integer;
begin
  assign(input,'apple.in');
  reset(input);
  assign(output,'apple.out');
  rewrite(output);
  s:=0;
  for i:=1 to 10 do
   read(a[i]);
   read(y);
  for i:=1 to 10 do
   if y+30>=a[i] then s:=s+1;
  writeln(s);
  close(input);
  close(output);
end.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:15068次
    • 积分:108
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档