pascal数组读 10个数,输出偶数项及它们的和,输出奇数项及它们的平均数

//---------------------------------------------------------------------------#includeintmain(void){i

#include"stdio.h"main(){inta[10]={1,11,18,-11,44,15,23,50,99};int*p=a;intloop;intrightnum=0;intbadnu

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

#include#include#include#defineN10voidmain(){inti,j,p[10],temp;for(i=0;i

用Excel求解,假定10个数存放在A1:A10最大值=MAX(A1:A10)最小值=MIN(A1:A10)平均值=AVERAGE(A1:A10)

只要从一开始比较,小的就赋给min,大的就赋给maxprogramex1;varmax,min,i,n:longint;beginmax:=-maxlongint;min:=malongint;for

C++写的：经测试,结果是正确的额!#includeusingnamespacestd;intmain(void){ints[10]={0};shorti=0,pos=0,neg=0,zero=0;c

vari,s:longint;a:array[1..10]oflongint;begins:=0;i:=1;whiles

vars,n:longint;functionprime(x:longint):boolean;vari:longint;beginifx>1thenbegini:=2;while(i*inthenp

varch:char;s,j,i:integer;beginread(ch);whilech'.'dobeginif(ch>='A')and(ch='A')and(ch

programstat;varinf,outf:text;ss:string[10];next:array[1..10]ofinteger;s:ansistring;i,j,k,l,m,n,num,l

1vara:array[1..10]ofinteger;i,ji,ou:longint;beginfori:=1to10doread(a[i]);fori:=1to5dobeginwriteln(a[

a（10）0到10共11个a(1to10)1到10共10个

从前往后找第一个非0元素,从后往前找一个非0元素,其间距离就是有效位长度.（Pascal中数组最多只能开1000000（也许比这个数小）,不会超时）programt;vari,j,k:longint;

最大值的函数intmax(inta[10]){intt=a[0],i;for(i=1;ia[i])?t:a[i];returnt;}最小值的函数intmin(inta[10]){intt=a[0],i

#includemain(){inta[10],b[10],i,j;for(i=0,j=0;i

var s:string;    i,j,t:integer;begin  readln(s);  for&n

#includemain(){inti,a[10],j=0;for(i=0;i

开心的金明：pascal源程序：programaaa;varv,p:array[1..60]oflongint;{v:价值,p：重量}f:array[0..60,0..32000]oflongint;

constgo:array[1..4,1..2]oflongint=((0,1),(1,0),(0,-1),(-1,0));varn,i,j:longint;map:array[0..25,0..25