BÀI TẬP VỀ MẢNG MỘT CHIỀU

Chủ Đề: Một số bài tập Pascal về mảng một chiềuĐề bài: Nhập vào một mảng gồm n số nguyên và số nguyên k.. TÌm và đưa ra màn hình: a.Giá trị lớn nhất của mảng, vị trí lớn nhất đó b.. Gí

Chủ Đề: Một số bài tập Pascal về mảng một chiều

Đề bài: Nhập vào một mảng gồm n số nguyên và số nguyên k TÌm và đưa ra màn hình:

a.Giá trị lớn nhất của mảng, vị trí lớn nhất đó

b Gía trị nhỏ nhất của màng, vị trí

c Tính tổng bình phương các giá trị ở vị trí chẵn

d Sắp xếp mảng theo thứ tự tăng dần

e Đếm xem trong mang có bao nhiêu giá trị bằng k

var a:array[1 200] of integer;

max,min,m,j,n,imin,imax,d,k,s,tg:integer;

Begin

write('Nhap so phan tu:');readln(n);

write('Nhap k:'); readln(k);

for m:=1 to n do

begin

write('Nhap a[',m,']=');readln(a[m]);

end;

max:=a[1];min:=a[1];d:=0;s:=0;imin:=1;imax:=1;

for m:= 2 to n do

begin

if a[m]>max then

begin

max:=a[m];

imax:=m;

end;

if a[m]<min then

begin

min:=a[m];

imin:=m;

end;

if a[m]=k then d:=d+1;

if m mod 2=0 then s:=s+sqr(a[m]);

end;

{sx day tang dan}

For m:=1 to n-1 do

For j:=m+1 to n do

if a[m]>a[j] then

begin

tg:=a[m];

a[m]:=a[j];

a[j]:=tg;

end;

Writeln('Gia tri lon nhat cua day la ', max,' o vi tri',imax);

Writeln('Gia tri nho nhat cua day la ', min,' o vi tri',imin);

Writeln('Tong binh phuong cac so o vi tri chan ',s); writeln('So phan tu co gia tri bang ',k,' la ',d); Writeln('Mang sau khi sap xep');

for m:=1 to n do

write(a[m]);

readln;

End.

{Tim doan dai nhat gom cac so 0 lien tiep}

var a:array[1 100] of integer;

n,dem,i,j,tong,max,vt:integer;

begin

write('Nhap so phan tu cua mang:');readln(n);

for i:=1 to n do

begin

write('Nhap a[',i,']:');readln(a);

end;

dem:=0;

for i:=1 to n do

begin

if a =0 then dem:=dem+1

else dem:=0;

if dem>max then max:=dem;

end;

write('Doan dai nhat gom cac so 0 lien tiep la ',max); readln;

end.

{Kiem tra mot day la cap so cong}

var a:array[1 100] of integer;

d,i,n:integer;

kt:boolean;

begin

write('Nhap n:');readln(n);

for i:=1 to n do

begin

write('Nhap a[',i,']:');readln(a);

end;

kt:=true;i:=3; d:=a[2]-a[1];

while (i<=n) do

begin

if a-a[i-1] <>d then kt:=false;

inc(i);

end;

if kt then write('day la cap so cong')

else

write('day khong la csc');

readln;

end.

{Tim day con tang co tong lon nhat, in ra day con do}

var a:array[1 100] of integer;

n, i,j,tong,max,vt:integer;

begin

write('Nhap so phan tu cua mang:');readln(n);

for i:=1 to n do

begin

write('Nhap a[',i,']:');readln(a);

end;

i:=1;max:=0;

while (i<=n) do

begin

j:=i+1;tong:=a;

while (j<=n) and (a[j]>a[j-1]) do

begin

tong:=tong+a[j];

if tong>max then

begin

max:=tong;

vt:=i;

end;

inc(j);

end;

tong:=0;

inc(i);

end;

writeln('Day co tong tang lon nhat');

while (vt<=n) and (a[vt]<a[vt+1]) do

begin

write(a[vt]);

vt:=vt+1;

end;

writeln(a[vt]);

write('Voi tong lon nhat la ',max);

readln;

end.

{Tron hai mang duoc sap xep tang dan thanh mot mang duoc sap xep tang dan}

WriteLN('NHAP PHAN TU CHO MANG A:');

Writeln(' _');

write('Nhap n:');readln(n);

for i:=1 to n do

begin

write('Nhap a[',i,']:');readln(a);

end;

WRIteln('NHAP PHAN TU CHO MANG B:');

write('Nhap m:');readln(m);

for i:=1 to m do

begin

write('Nhap b[',i,']:');readln(b);

end;

i:=1;j:=1;k:=1;

{Ca hai day chua het}

while (i<=n) and (j<=m) do

begin

if a<b[j] then

begin

c[k]:=a;

inc(i);

end

else

begin

c[k]:=b[j];

inc(j);

end;

inc(k);

end;

{Day b het}

while (i<=n) do

begin

c[k]:=a;

inc(i);

inc(k);

end;

{Day a het}

while (j<=m) do

begin

c[k]:=b[j];

inc(j);

inc(k);

end;

WRITELN('DAY SAU KHI TRON LA'); writeln(' _'); for k:=1 to n+m do

write(c[k],' ') ;}

{Tron mang theo pp chan o cuoi}

{Type mang=array[1 100] of integer; var a,b,c:mang;

i,m,k,n,j:integer;

begin

write('Nhap n:');readln(n);

for i:=1 to n do

begin

write('Nhap a[',i,']:');readln(a);

end;

write('Nhap m:');readln(m);

for j:=1 to m do

begin

write('Nhap b[',j,']:');readln(b[j]); end;

a[n+1]:=32001;

b[m+1]:=32001;

i:=1;j:=1;

for k:=1 to m+n do

begin

if a<b[j] then begin c[k]:=a;inc(i);end else

begin c[k]:=b[j];inc(j);end;

end;

writeln('Day sau khi tron la');

for k:=1 to m+n do write(c[k]);} readln;

end.

{Doi cho phan tu lon nhat va nho nhat}

write('Nhap n:');readln(n);

for i:=1 to n do

begin

write('Nhap a[',i,']:');readln(a);

end;

i:=1;j:=n;min:=a[1];max:=a[n]; while i<=n do

begin

if a<=min then

begin

min:=a;

k:=i;

end;

inc(i);

end;

while j>=1 do

begin

if a[j]>= max then

begin

max:=a[j];

x:=j;

end;

dec(j);

end;

a[k]:=max;

a[x]:=min;

for i:=1 to n do write(a)

{Tinh tong ca so nam giua so 0 dau tien va so 0 cuoi cung

neu hai so 0 nam canh nhau thi ket qua se la 0}

write('Nhap n:');readln(n);

for i:=1 to n do

begin

write('Nhap a[',i,']:');readln(a);

end;

i:=1;j:=n; x:=0;

while (i<=n) and (a<>0) do inc(i);

while (j>=1) and (a[j]<>0) do dec(j);

if (j-i)>=2 then

begin

for k:=i to j do x:=x+a[k];

end

else

writeln('Tong la 0');

writeln('Tong la ',x);}

{Liet ke cac so nguyen to co trong day:'}

begin

write('Nhap n:');readln(n);

for i:=1 to n do

begin

write('Nhap a[',i,']:');readln(a);

end;

{cach 1}

i:=1;

while (i<=n) do

begin

d:=0;

for j:=1 to a do if a mod j= 0 then inc(d);

if d=2 then writeln(a,'la so nguyen to');

inc(i);

end;

{cach 2}

i:=1;

while (i<=n) do

begin

j:=2;

while (a mod 2 <>0) and (j<=round(sqrt(a))) do inc(j);

if j>round(sqrt(a)) then writeln(a,'la so nguyen to'); inc(i);

end;

{Liet ke cac so hoan hao co trong day}

i:=1;

while (i<=n) do

begin

x:=0;

for j:=1 to (a div 2) do

if a mod j=0 then x:=x+j;

if x=a then write(a,' La so hoan hao'); inc(i);

end;