Question

bài 1:Viết chương trình nhập vào một mảng số nguyên gồm n phần tử(n<100) nhập từ bàn phím thực hiện các công việc sau:
a.In ra màn hình các phần tử của mảng vừa nhập
b.Đếm các số nguyên dương có mặt trong mảng và in ra màn hình
c.Tính tổng các số nguyên chia hết cho 3 có mặt trong mảng.
d.Nhập vào một số nguyên X,kiểm tra xem trong mảng có bao nhiêu số lớn hơn X và in ra các số đó ra màn hình
e.Dãy đơn điệu tăng là dãy các số nguyên tăng 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 tăng hay không
bài 2:Viết chương trình nhập vào một chuỗi ký tự bất kỳ,hãy tách các số có mặt trong chuỗi ký tự đó và tính tổng của chúng

Answer 1

Bài 1:

uses crt;
var a,b:array[1..100]of integer;
n,i,dem,t,dem1,x,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Mang vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong so nguyen duong trong mang la: ',dem);
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac so nguyen chia het cho 3 la: ',t);
write('Nhap x='); readln(x);
dem1:=0;
for i:=1 to n do
if a[i]>x then
begin
inc(dem1);
b[dem1]:=a[i];
end;
writeln('So phan tu lon hon ',x,' la: ',dem1);
writeln('Cac so do la: ');
for i:=1 to dem1 do
write(b[i]:4);
writeln;
kt:=0;
for i:=1 to n-1 do
if a[i]>a[i+1] then kt:=1;
if kt=0 then writeln('Day la day don dieu tang')
else writeln('Day khong la day don dieu tang');
readln;
end.

Bài 2:

uses crt;
var st:string;
d,t,i,x,y:integer;
begin
clrscr;
write('Nhap chuoi:'); readln(st);
d:=length(st);
t:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('Tong cac so co trong chuoi la: ',t);
readln;
end.