Question

[Mikarin Suzuki]

Cho số nguyên dương N và dãy A gồm N số nguyên và số nguyên K
a) Tìm chỉ số i mà A=K ( Nếu không có thì ghi -1)
b) Đếm số lượng các số là ước của K trong dãy
c)Tính tổng các số là bội của K trong dãy
Dãy số nguyên A được gọi là dãy tăng nếu phần tử đứng sau luôn lớn hơn hoặc bằng phần tử đứng trước nó. Cho biết dãy A có phải là dãy tăng hay không?

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;
var a,b:array[1..100]of integer;
i,n,k,dem,dem1,t,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i]=k then
begin
inc(dem);
b[dem]:=i;
end;
if dem=0 then writeln('-1')
else begin
writeln('Cac chi so i trong day sao cho a[i]=',k,' la: ');
for i:=1 to dem do
write(b[i]:4);
end;
writeln;
dem1:=0;
for i:=1 to n do
if k mod a[i]=0 then dem1:=dem1+1;
writeln('So luong cac so la uoc cua ',k,' trong day la: ',dem1);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln('Tong cac so la boi cua ',k,' trong day la: ',t);
kt:=0;
for i:=1 to n-1 do
if a[i]>a[i+1] then kt:=1;
if kt=0 then writeln('Day A la day tang')
else writeln('Day A khong la day tang');
readln;
end.