Kiểu dữ liệu có cấu trúc - Hỏi đáp

#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;
}

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.

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.

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.

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.

phần tử lớn nhất và giá trị lớn nhất là như nhau

uses crt;

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

i,n,ln:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

ln:=a[1];

for i:=1 to n do

if ln<a[i] then ln:=a[i];

writeln('so lon nhat la: ',ln);

readln;

end.

uses crt;
var m,n,i:integer;
s:int64;
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 khoang 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.

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 100 do

begin

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

end;

{----------------------------xuat------------------------}

for i:=1 to 100 do

write(a[i]:4);

readln;

end.

uses crt;
var st1,st2:string;
i,d,dem,dem1,j:integer;
begin
clrscr;
write('nhap chuoi st1:'); readln(st1);
write('nhap chuoi st2:'); readln(st2);
d:=length(st1);
for i:=1 to d do
st1[i]:=upcase(st1[i]);
writeln('chuoi sau khi doi la: ',st1);
dem:=0;
for i:=1 to d do
if st1[i] in ['0'..'9'] then inc(dem);
writeln('so luong chu so trong xau st1 la: ',dem);
{------------------------xu-ly-xau-st2-------------------------------}
dem1:=0;
for j:=1 to length(st2) do
if st2[j]=' ' then dem1:=dem1+1;
writeln('so tu cua xau ',st2,' la: ',dem1+1);
readln;
end.

uses crt;

var a,b,i,t,t1:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a<b then

begin

t:=0; t1:=0;

for i:=a to b do

begin

if i mod 2=0 then t:=t+i

else t1:=t1+i;

end;

writeln('tong cac so chan trong khoang tu ',a,' toi ',b,' la: ',t);

writeln('tong cac so le trong khoang tu ',a,' toi ',b,' la: ',t1);

end

else writeln('vui long nhap lai');

readln;

end.

1:

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

write('nhap xau:'); readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do

if st[i]='a' then inc(dem);

writeln('so cac ki tu a trong xau la: ',dem);

readln;

end.

2:

uses crt;

var b:array[1..250]of integer;

m,i:integer;

begin

clrscr;

write('m='); readln(m);

for i:=1 to m do

begin

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

end;

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

writeln('cac so le la: ');

for i:=1 to m do

if b[i] mod 2=1 then write(b[i]:4);

readln;

end.

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

write('nhap 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

inc(dem);

t:=t+a[i];

end;

writeln('so phan tu chan trong day la: ',dem);

writeln('tong cac phan tu chan trong day la: ',t);

readln;

end.

var s1,s2: string; i,k:byte;
begin
write('nhap s1:');
readln(s1);
write('nhap s2:');
readln(s2);
write('nhap vt can chen:');
readln(k);
insert(s1,s2,k);
writeln('xau sau khi chen la:',s2);
readln;
end.

uses crt;

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

n,i,dem: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;

for i:=1 to n do

if (a[i]>0) and (a[i] mod 3=0) then inc(dem);

writeln('so phan tu chia het cho 3 trong day so la: ',dem);

readln;

end.