Ai Đóm mà giỏi tin giúp m nha
Em hãy viết chương trình Pascal nhập vào một dãy số gồm 50 phần tử số nguyên. Đếm và in ra màn hình các số chẵn, các số lẻ
Ai Đóm mà giỏi tin giúp m nha
Em hãy viết chương trình Pascal nhập vào một dãy số gồm 50 phần tử số nguyên. Đếm và in ra màn hình các số chẵn, các số lẻ
program ct;
uses crt;
var d1,d2,i,n:integer;
A:array[1..50] of integer;
begin
clrscr;
for i:=1 to 50 do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
d1:=0;d2:=0;
for i:=1 to 50 do
begin
if A[i] mod 2=0 then d1:=d1+1;
if A[i] mod 2=1 then d2:=d2+1;
end;
writeln(‘so chan la:’,d1);
writeln(‘so le la:’,d2);
for i:=1 to 50 do
if A[i] mod 2=0 then writeln(‘cac so chan:’,A[i]);
for i:=1 to 50 do
if A[i] mod 2=1 then writeln(‘cac so le la:’,A[i]);
readln
end.
program Dom;
uses crt;
var A:array[1..50] of integer;
i,dc,dl:integer;
begin clrscr;
for i:=1 to 50 do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
for i:=1 to 50 do
begin
if A[i] mod 2=0 then inc(dc);
if A[i] mod 2<>0 then inc(dl);
end;
writeln(‘Co ‘,dc,’ so chan: ‘),
for i:=1 to 50 do
if A[i] mod 2=0 then write(A[i]:3);
writeln(‘Co ‘,dl,’ so le: ‘),
for i:=1 to 50 do
if A[i] mod 2<>0 then write(A[i]:3);
readln;
end.
Học tốt!