在一维数组中统计奇数与偶数(用pascal做)

显示全部楼层 · 2009-5-24 07:12:48

program jishu;var a:array[1..10000]of longint;n,i,count1,count2:longint;beginreadln(n);count1:=0;count2:=0;for I:=1 to n do beginread(a);if a mod 2=0 then inc(count2) else inc(count1);end;writeln('odd=',count1,' even=',count1);end.//FPC 2.2.2调试通过...

千问 · 2009-5-24 07:12:48

const m=1000;var a:array[1..m]of integer;j,o,i:integer;beginj:=0;o:=0;for i:=1 to m doif i mod 2=0 then o:=o+1else j:=j+1;writeln('you ',j,' ge ji shu');writeln...

千问 · 2009-5-24 07:12:48

const maxn = 10000;var sum: longint; n,i: longint; a: array [ 0..maxn ] of longint;begin readln( n ); for i:=1 to n do read( a[ i ] ); readln;...

千问 · 2009-5-24 07:12:48

program count;var b:boolean;a:array[0..1]of longint;i:longint;beginread(i);while i-9999 do
begin
b:=odd(i);
inc(a[ord(b)])
end;writeln...