Question

Viết chương trình nhập một mảng số nguyên gồm n phần tử,thực hiện các công việc sau:
a.Đếm các phần tử dương có mặt trong mảng
b.In ra màn hình các phần tử chẵn xuất hiện trong mảng
c.Tính trung bình cộng của các phần tử chẵn có mặt trong mảng
d.Nhập vào một số X,kiểm tra trong dayx xem có phần tử nào bằng X không?Nếu có thì chỉ ra vị trí của phần tử đó
e.Dãy đơn điệu là dãy các số nguyên giảm liên tiếp,kiểm tra xem dãy n số nguyên trong mảng có phải là dãy đơn điệu giảm hay không?Nếu không thì in ra màn hình hãy đơn điệu giảm dài nhất có mặt trong mảng
BT2
Cho hai số tự nhiên A và B,A có M chữ số và B có N chữ số.Khi chèn M chữ số của A vào trong số B ta được số C có M+N chữ số sao cho trình tự xuất hiện của các chữ số của A và B vẫn giữ nguyên

Answer 1

uses crt;
var a,b:array[1..100]of integer;
dem,i,n,t,dem1,x,kt,kt1,dn,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So phan tu duong trong mang la: ',dem);
writeln('Cac so chan co trong mang la: ');
t:=0;
dem1:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i]:4);
t:=t+a[i];
inc(dem);
end;
writeln;
writeln('Trung binh cong cac phan tu co mat trong mang la: ',t/dem:4:2);
write('Nhap x='); readln(x);
kt:=0;
for i:=1 to n do
if a[i]=x then
begin
kt:=kt+1;
b[kt]:=i;
end;
if kt=0 then writeln(x,' khong co trong day')
else begin
writeln('Vi tri cua ',x,' trong day la: ');
for i:=1 to kt do
write(b[i]:4);
end;
kt1:=0;
for i:=1 to n-1 do
if a[i+1]>a[i] then kt1:=1;
if kt1=0 then writeln('Day la day con don dieu giam')
else begin
dn:=0;
dem1:=1;
for i:=1 to n-1 do
if a[i+1]<a[i] then
begin
inc(dem1);
if i+1=n then
begin
if dn<dem1 then
begin
vt:=dn;
dn:=dem1;
end
else if dn=dem1 then
begin
dn:=dem1;
vt:=i+1;
end;
end;
end
else if a[i+1]>a[i] then
begin
if dn<dem1 then
begin
vt:=i;
dn:=dem1;
end
else if dn=dem1 then
begin
dn:=dem1;
vt:=i;
end;
end;
dem1:=1;
writeln('Day don dieu giam dai nhat trong mang la: ');
for i:=vt-dn+1 to vt do
write(a[i]:4);
end;
readln;
end.