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;

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.

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

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