Viết chương trình khai báo dãy số nguyên A có tối đa 100 phần tử. Nhâp vào n giá trị phần tử. In ra dãy số và số lượng các số chắn và lẻ.
Viết chương trình khai báo dãy số nguyên A có tối đa 100 phần tử. Nhâp vào n giá trị phần tử. In ra dãy số và số lượng các số chắn và lẻ.
uses crt;
var arr: array[1..100] of longint; n,i,sc,sl: byte;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘);
readln(n);
for i:=1 to n do
begin
write(‘Nhap gia tri cho phan tu thu nhat: ‘);
readln(arr[i]);
end;
for i:=1 to n do
if (arr[i] mod 2 = 0) then inc(sc) else inc(sl);
write(‘Day so: ‘);
for i:=1 to n do write(arr[i], ‘ ‘);
writeln(‘So luong so chan la: ‘,sc);
writeln(‘So luong so le la: ‘,sl);
readln;
end.
program mang;
uses crt;
var A:array [1..500] of integer;
n,i,d1,d2: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if A[i] mod 2=0 then d1:=d1+1;
if A[i] mod 2<>0 then d2:=d2+1;
end;
write(‘Day vua nhap: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
writeln(‘Co ‘,d1,’ so chan’);
write(‘Co ‘,d2,’ so le’);
readln
End.