Viết chương trình nhập vào 1 dãy số nguyên có n phần tử
a) tính tổng,tích các phần tử chia hết cho khóa K
b) đếm số lẻ, số chẵn trong dãy
c) đếm số âm và số dương trong dãy
Viết chương trình nhập vào 1 dãy số nguyên có n phần tử
a) tính tổng,tích các phần tử chia hết cho khóa K
b) đếm số lẻ, số chẵn trong dãy
c) đếm số âm và số dương trong dãy
program ct;
uses crt;
var A:array[1..1000] of integer;
i,n,k,dl,dc,da,dd:integer;
S,T:longint;
begin clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);
end;
S:=0; T:=1;
write(‘Nhap so k: ‘); readln(k);
for i:=1 to n do
begin
if A[i] mod k=0 then
begin
S:=S+A[i];
T:=T*A[i];
end;
if A[i] mod 2=0 then inc(dc)
else inc(dl);
if A[i]>0 then inc(dd)
else inc(da);
end;
writeln(‘Tong chia het cho k la: ‘,S);
writeln(‘Tich chia het cho k la: ‘,T);
writeln(‘Co ‘,dl,’ so le. Co ‘,dc,’ so chan);
writeln(‘Co ‘,da,’ so am. Co ‘,dd,’ so duong);
readln;
end.
Học tốt!