Pascal 输入n个整数,请找出最小数所在的位置,并把它与第一个数对调

programxzpx;constn=7;vara:array[1..n]ofinteger;i,j,k,t:integer;beginwrite('Enterdate:');fori:=1tondo

楼上是C++写的,这个是C语言版的#include#includeintmain(){intcount;int*arrayLenth;int**intArray;int*elem1,*elem2;in

vara:array[1..1000]ofinteger;n,i,j,k:integer;beginreadln(n);j:=1;fori:=1tondobeginread(a[i]);ifa[i]

只学循环完全可以办到,关键是要动脑啊#includevoidmain(){\x09intn,m,max,i;\x09max=0;\x09printf("PleaseInputANumber:\n");

eginreadln(n);fori:=1tondoread(a[i]);k:=1;fori:=1ton-1doifa[k]再问：说明部分也写一下再答：beginreadln(n);{读入一共多少个数

vari,k,n1,n2:integer;beginn1:=0;n2:=0;fori:=1to20dobeginreadln(k);ifk>0thenn1:=n1+1elseifk

varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!

楼上两位全错了……不解释,不信自己手算.定理：求前n个奇数的总和=n的平方varn:longint;beginreadln(n);writeln(n*n);end.

vari,n,a,ans:longint;functionprime(x:longint):boolean;/////////判断素数函数vari:longint;beginifx

varn,i,ans:integer;beginreadln(n);ans:=0;//读入,计数器置0fori:=1tondoifnmodi=0theninc(ans);//从1到n循环找到一个他的因

1+2+3+……+n的和可以看成是一个上底是1下底是n的梯形的面积.|1||2|||3||||4…………所以1+2+3+……+n=n*（1+n）/2.1)programsum1;varb,i:long

varn,i,j,k:longint;t:boolean;beginreadln(n);ifn=1thenbeginwritelN('no');halt;end;t:=true;fori:=2totr

programDoingData;varn:longint;sum:longint;n1:real;n2:longint;n3:real;a:array[0..1000]oflongint;f:arr

设a[0](等于0)到a[i]的部分和为s[i],则只要求出s[0],s[1],…,s[n]之间的关系即可.而他们之间的关系可以用有向图表示,且在有向图中连成环的即为无解.对于a[i]至a[j]的和的

{而这10个数：106991041201071123310297100　按一定顺序排列后得到：120112107106104102100999733　正中间有两个数：104102,中位数就是这两个数的

vari,j,n,m:longint;procedureprint(c:char;a:integer);vari:longint;beginfori:=1toadowrite(c);end;begin

第一个for(i=0;i

vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.

inti,a,n;int*pl=NULL;printf("inputn:");scanf("%d",&n);if(n>0){pl=(int*)malloc(n*sizeof(int));}for(i=

我不会啊啊