如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

URAL/1617

来自"NOCOW"

跳转到: 导航, 搜索

program t1617; var 

 h:array [0..100] of longint;
 i,n,a:longint;

begin 

 readln(n);
 for i:=1 to n do
 begin
   readln(a);
   a:=a-600;
   inc(h[a]);
 end;
 a:=0;
 for i:=0 to 100 do
 begin
   a:=a+(h[i] div 4);
 end;
 writeln(a);

end.


C语言的：

  1. include<stdio.h>

int h[101],n,a; int main(){ 

   scanf("%d",&n);
   for(int i=1;i<=n;i++){
       scanf("%d",&a);
       h[a-600]++;
   }
   a=0;
   for(int i=0;i<=100;i++)
       a+=h[i]/4;
   printf("%d\n",a);

} //by唯我独尊

来自"http://www.nocow.cn/index.php/URAL/1617"
个人工具