四川省计算机二级C语言18次至31次机试及答案1

`j=l*/\rif(a[i]%j==O)\rfac[count++J=j;\rs=0;\rfor(j=0;j<count;j++)\rs=fac[j];/*@P`+=*/\rif(s==a[ij)\rmyprintf(count,fac,s);\r)\r)\rvoidmain()\rinti,a[N],fac[N];EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rFILE*fp;\rfp=fopen("test6-1.dat^/r");\rif(fp=NULL)/*@P`==*/\r(\rprintf("Cannotopenfile!\nH);\rexit(O);\r)\rfor(i=0;i<N;i++)\rfscanf(fp,u%d",&ari]);\rfclose(fp);\rfind(a);\r)\r`?@?8\r?(Ptest62.c)(60?)\r`\rfun40?`2.main20?`\r1!"?#$%&'10?1./!">4C45&'15\r2()&'20?22&'78fun5\r3*+&'10\rP` :\r#include<stdio.h>\r#defineN10\rvoidmain()\r(\rintx[N],i,n;\rintfun(int*);\rfor(i=0;i<N;i++)\rscanf(u%dH,x+i);\rn=fun(x);\rprintf(nindex=%d,inax=%d\nu,n,xlnj);\r)\rintfun(intx[J)\r(\rinti,max,k=0;\rmax=x[0];\rfor(i=l;i<N;i++)\rif(x[i]>max)\r(\rmax=x[i];\rk=i;\rreturnk;