Nhập vào 1 dãy số ngẫu nhiên sau đó thực hiện các công việc sau

Đếm số các số chẵn lẻ âm dương

Code chạy pascal:

var a:array[1..100000000] of longint;
i,n,d,d1,d2,d3:longint;
begin
write('nhap n=');
read(n);  writeln;
for i:=1 to n do read(a[i]);
d:=0;
d1:=0;
d2:=0;
d3:=0;
for i:=1 to n do
if a[i]>=0 then
if (a[i] mod 2=0) then d:=d+1;
for i:=1 to n do
if (a[i] mod 2=1) then d1:=d1+1;
for i:=1 to n do
if (a[i]<0) then d2:=d2+1;
for i:=1 to n do
if (a[i]>0) then d3:=d3+1;
writeln('so chan co:',d);
writeln('so le co:',d1);
writeln('so am co:',d2);
write('so duong co:',d3);
readln;
end.

được ko bạn:

uses crt;

var a:array[1..200]of integer;

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

  if a[i] mod 2=0 then inc(dem);

writeln(dem);

readln;

end.

#hlong210410