uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{---------------------------xu-ly-------------------------}

dem:=0; t:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('so cac so chan la: ',dem);

writeln('tong cac so chan la: ',t);

readln;

end.

#include <iostream>

using namespace std;

int main()
{
int tong=0, n,a[1001],dem=0;
cin>>n;
for(int i=1;i<=n;i++)
{
cin>>a[i];
if(a[i]%2==0)
{
tong+=a[i];
dem++;
}
}
cout<<"So cac so chan co trong day: "<<dem<<endl;
cout<<"Tong cac so chan co trong day: "<<tong;
return 0;
}

Bước 1: Đặt lại tổng

a[1]=a[1];

a[2]=a[1]+a[2];

a[3]=a[1]+a[2]+a[3]

…

a[n]= a[1]+a[2]+ … + a[n]

Bước 2: Gọi S=a[n] ta duyệt từ đầu đến dãy nếu chỗ nào S chia hết cho a[i] thì tức là có thể phân dãy ra các đoạn bằng nhau có tổng là a[i] (thực chất a[1]+…+a[i]) ta kiểm tra xem có đúng như vậy không thông qua vòng lặp tạo ra dãy a[i], a[i]*2 … a[i]*k=S, nếu vượt quá số thứ tự thì dừng không thỏa mãn, nếu tìm được thì xuất a[i]

Bước 3: Nếu không có phần tử nào thỏa mãn thì xuất ra S là toàn dãy

Bạn giải cụ thể giúp mình đc không

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{----------------------------------cau-a------------------------------}

for i:=1 to n do

write(a[i]:4);

{----------------------------cau-b--------------------------}

writeln;

dem:=0;

for i:=1 to n do

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

writeln('so phan tu le la: ',dem);

{-----------------------cau-c-----------------------}

t:=0;

for i:=1 to n do

if a[i] mod 3=0 then t:=t+a[i];

writeln('tong cac phan tu chia het cho 3 la: ',t);

readln;

end.

Em cảm ơn ạ

1:

uses crt;
var a,b,i,tsc,tsl:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if (a>0) and (b>0) then
begin
if a<b then
begin
tsc:=0;
tsl:=0;
for i:=a to b do
if i mod 2=0 then tsc:=tsc+i
else tsl:=tsl+i;
writeln('tong cac so chan trong khoang tu ',a,' toi ',b,' la: ',tsc);
writeln('tong cac so le trong khoang tu ',a,' toi ',b,' la: ',tsl);
end
else writeln('vui long nhap a be hon b');
end
else writeln('vui long nhap hai so duong');
readln;
end.

2:

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
if (n>=5) then
begin
writeln('cac so nguyen le trong khoang tu 5 toi ',n,' la: ');
for i:=5 to n do
if i mod 2=1 then write(i:4);
end
else writeln('vui long nhap n lon hon hoac bang 5');
readln;
end.

3:

uses crt;
var m,n,i:integer;
s:longint;
begin
clrscr;
write('m='); readln(m);
write('n='); readln(n);
if (m>0) and (n>0) then
begin
if m<n then
begin
s:=1;
for i:=m to n do
if i mod 2=0 then s:=s*i;
writeln('tich cac so chan trong pham vi tu ',m,' toi ',n,' la: ',s);
end
else writeln('vui long nhap m nho hon n');
end
else writeln('vui long nhap hai so duong');
readln;
end.

4:

uses crt;
var x,y,i,j:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>0) and (y>0) then
begin
if x<y then
begin
writeln('day cac so nguyen duong trong pham vi tu ',x,' toi ',y,' la:');
for i:=x to y do
write(i:4);
writeln;
writeln('day cac so nguyen duong trong pham vi tu ',y,' toi ',x,' la:');
for j:=y downto x do
write(j:4);
end
else writeln('vui long nhap x nho hon y');
end
else writeln('vui long nhap hai so duong');
readln;
end.

''một trong các số từ A1 đến Ai-1''

uses crt;

const fi='songuyen.txt';

var f1:text;

a,b:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

writeln('a=',a);

writeln('b=',b);

close(f1);

readln;

end.

uses crt;
var n,i,kt,j:integer;
begin
clrscr;
write('n='); readln(n);
if (10<n) and (n<1000) then
begin
writeln('cac so nguyen to nho hon hoac bang ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
end
else writeln('vui long nhap lai');
readln;
end.

uses crt;
var n,a,b,q:integer;
begin
clrscr;
write('n='); readln(n);
for a:=1 to n do
for b:=a to n do
if trunc(sqrt(sqr(a)+sqr(b)))=sqrt(sqr(a)+sqr(b)) then writeln(a,' ',b);
readln;
end.

uses crt;
const n=10;
var diem:array[1..n]of real;
i,dem,dem1:integer;
t,tbc:real;
begin
clrscr;
for i:=1 to n do
begin
write('diem[',i,']='); readln(diem[i]);
end;
{-----------------------tinh-tong-diem-cua-10-hoc-sinh---------------------------------}
t:=0;
for i:=1 to n do
t:=t+diem[i];
writeln('tong diem cua 10 hoc sinh la: ',t:4:2);
{----------------------tinh-diem-tbinh-cua-10-hoc-sinh---------------------------------}
tbc:=t/n;
writeln('diem trung binh cua 10 hoc sinh la: ',tbc:4:2);
{---------------------dem-so-hoc-sinh-co-diem>5---------------------------------------}
dem:=0;
for i:=1 to n do
if diem[i]>5 then inc(dem);
writeln('so hoc sinh co diem lon hon 5 la: ',dem);
{---------------------dem-so-hoc-sinh-gioi--------------------------------------------}
dem1:=0;
for i:=1 to n do
if diem[i]>=8 then inc(dem1);
writeln('so hoc sinh gioi la: ',dem1);
readln;
end.