pascal语言输入10个数打印偶数编程

前面写错了，不好意思

#include<stdio.h>voidinput(intb[10]){inti;for(i=0;i<10;i++)scanf("%d",&b[i]);

var a:array[1..5,1..5] of integer;    i,j,max,ij,x,y:integer;begi

这个其实可以用多种方法实现方法1：分离数字法varx,l,s:longint;beginread(x);whilex>0dobeginl:=xmod10;inc(s,l);x:=xdiv10;//当前

只能告诉你算法,pascla不会定义一个变量sum,记录约数之和得到自然数a,定义变量i从1遍历到a,只要a/i==0,sum=sum+i,最后输出sum就是了

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

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

vari,n,m,max,min:longint;beginreadln(n);max:=-maxlongint;min:=maxlonint;//初始化fori:=1tondobeginreadln

同意jaxxcyh的意见!看在你不知道的份上,给你一个参考程序.vara:array[1..20]ofreal;n,m,b:real;i,j:integer;beginfori:=1to20dobeg

#includeintmain(){inti,max,min,maxnum,minnum;inta[10]={0};for(i=0;i再问：有些不懂啊？怎么是intmain？inta[10]只定义不赋

#include#includeintmain(){intnumber[10];//存输入的十个数floatodd=0.0;//奇数平均值floateven=0.0;//偶数平均值intji=0;//

#includeintmain(void){\x09inta[10];\x09inti,aver=0;\x09scanf("%d%d%d%d%d%d%d%d%d%d",&a[0],&a[1],&a[2

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

vara,b:char;beginreadln(a,b);iford(a)>ord(b)thenwriteln(b,'',a)else(writeln(a,'',b));end.应该没错

#includeintmain(){inta[10];inti,j;intt,sum=0;for(i=0;i{scanf("%d",&a[i]);sum+=a[i];}for(j=0;jfor(i=0

vara,n,i:longint;beginfori:=1to10dobeginread(a);ifa>0thenn:=n+1;end;write(n);end.

in(){intmax,min,i,x;floatave;scanf("%d",

vari,j,n:longint;z:boolean;beginreadln(n);writeln(2);fori:=3tondobeginz:=true;forj:=2toi-1doifimodj=

参考程序：Programcount;Vara,b,c,n,m,i:integer;BeginRead(n);a:=0;b:=0;c:=0;Fori:=1TonDoBeginRead(m);IfmMod

vara:array[1..4,1..4]ofinteger;n,i,j,s:integer;beginfori:=1to4doforj:=1to4doread(a[i,j]);s:=0;fori:=