Viết chương trình nhập vào 50 số nguyên đếm có bao nhiêu số chẵn

nhập dãy a gồm n số nguyên．đưa ra màn hình đếm số chẵn， số lẽ trong dãy A

program dem_so;

uses crt;

var A:array[1..1000] of integer;

n，i，dc，dl:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

dc:=0; dl:=0;

for i:=1 to n do

begin

write(‘A[‘，i，’]= ‘); readln(A[i]);

if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;

end;

writeln(‘Co ‘，dc，’ so chan’);

writeln(‘Co ‘，dl，’ so le’);

readln;

end.

program dem_so;

uses crt;

var A:array[1..1000] of integer;

n，i，dc，dl:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

dc:=0; dl:=0;

for i:=1 to n do

begin

write(‘A[‘，i，’]= ‘); readln(A[i]);

if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;

end;

writeln(‘Co ‘，dc，’ so chan’);

writeln(‘Co ‘，dl，’ so le’);

readln;

end.

program dem_so;

uses crt;

var A:array[1..1000] of integer;

n，i，dc，dl:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

dc:=0; dl:=0;

for i:=1 to n do

begin

write(‘A[‘，i，’]= ‘); readln(A[i]);

if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;

end;

writeln(‘Co ‘，dc，’ so chan’);

writeln(‘Co ‘，dl，’ so le’);

readln;

end.

Bài 1: viết chương trình đếm các số chẵn có trong đoạn [ M，N ]

Uses crt;

Var n，i，d:integer;

Begin

Clrscr;

Write(‘M:’);readln(M);

Write(‘N:’);readln(n);

For i:=m to n do if i mod 2=0 then d:=d+1;

writeln(‘So chan co trong doan ‘，m’，’，’，n，’ la:’，d);

readln end

Uses crt;

Var n，i，d:integer;

Begin

Clrscr;

Write(‘M:’);readln(M);

Write(‘N:’);readln(n);

For i:=m to n do if i mod 2=0 then d:=d+1;

writeln(‘So chan co trong doan ‘，m’，’，’，n，’ la:’，d);

readln end

Uses crt;

Var n，i，d:integer;

Begin

Clrscr;

Write(‘M:’);readln(M);

Write(‘N:’);readln(n);

For i:=m to n do if i mod 2=0 then d:=d+1;

writeln(‘So chan co trong doan ‘，m’，’，’，n，’ la:’，d);

readln end

viết chương trình nhập ѵào 1 số n， đếm xem có bao nhiêu số chẵn nhỏ hơn hoặc bằng n

uses crt;

var n，i，d: integer;

begin

clrscr;

write (‘nhap n: ‘): readln (n);

for i:=1 to n do

if i mod 2=0 then d:=d+1;

writeln (‘cac so chan nho hon hoac bang n la: ‘，d);

readln;

end.

uses crt;

var n，i，d: integer;

begin

clrscr;

write (‘nhap n: ‘): readln (n);

for i:=1 to n do

if i mod 2=0 then d:=d+1;

writeln (‘cac so chan nho hon hoac bang n la: ‘，d);

readln;

end.

uses crt;

var n，i，d: integer;

begin

clrscr;

write (‘nhap n: ‘): readln (n);

for i:=1 to n do

if i mod 2=0 then d:=d+1;

writeln (‘cac so chan nho hon hoac bang n la: ‘，d);

readln;

end.