Pascal输入10个数,计算正数,负数的个数.

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

programsample;vari,x,s,q:longint;begins:=0;q:=0;fori:=1to30dobeginread(x);inc(s,x);inc(q,sqr(x));end

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

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

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

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

varn,s,m:longint;beginread(n);s:=0;m:=0;whilen-1dobeginifnmod2=0thenbegins:=s+n;m:=m+1;end;read(n);e

#includevoidmain(){intnumber;floata[10],sum_negative=0,sum_positive=0;for(number=0;numbe

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

核心代码readln(n);whilen0dobeginifn=1thenwriteln(0)elsebeginforj:=2tondoifprime(j)theninc(ans);writeln(a

1、vara:array[1..10]ofinteger;n,m:integer;s:=real；beginforn:=1to10doread(a[n]);forn:=1to10dom:=m+a[n]

packagecom;importjava.util.Scanner;publicclassTest{/***@paramargs*/publicstaticvoidmain(String[]args

varn,i,j,k:integer;beginreadln(n);fori:=1tondobeginforj:=1to3dobeginwrite('':n-i+1);fork:=1toi+i-1do

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

#includevoidmain(){inta[10];intsum=0,i,t;floataver;printf("请输入十个整数:\n");for(i=0;i

#include#defineN10voidmain(){inta[N],i,s1=0,s2=0;for(i=0;i

建立一个text1、一个command1,代码如下：PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的

你没说数据范围.如果s比较小的话,用这个程序就行了：programexample;varx,i,n,s:byte;a:array[1..256]ofbyte;s:array[0..9]ofbyte;p