Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Đang bận thi học kỳ nên không có làm được.
Btw câu 9,10 m có thể search gg :))
Không cần viết chương trình đâu chứ ha :3
Lời giải:
program hotrotinhoc;
var a: array[1..32000] of integer;
i,n: integer;
function dem(x: integer): integer;
var d,j: integer;
begin
d:=0;
for j:=1 to x do if x mod j=0 then inc(d);
dem:=d;
end;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=0;
for i:=1 to n do
if u(a[i])>u(max) then max:=a[i];
write(max);
readln
end.
a, mình nghĩ tổng cx bằng n vì từ đầu ta đã gán s:=0
b, câu này mik k biết 
bạn thông cảm nha 
var
n,k,d,i,s:integer;
begin
write(' nhap n: ');
readln(n);
for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:= 1 to n do
if k = a[i] then d:=d+1;
writeln(k,' xuat hien ',d,' lan trong mang ');
for i:= 1 to n do
if a[i] mod 2 = 0 then s:= s+a[i];
write(' tong so chan trong mang la :',s);
readln;
end.
CHÚC BẠN HỌC TỐT :D
ôi chết dưới phần nhập n bạn thêm :
write(' nhap k: ');
readln(k);
CHO mình nha
Lời giải :
Mình làm ngôn ngữ Pascal nhé.
program hotrotinhoc;
var a,n,p : longint;
s: real;
begin
readln(a);
readln(n);
readln(p);
s:=exp(n*ln(a));
s:=s/100;
s:=s*p;
write(s:1:2);
readln
end.
K nhất thiết phải là C++ đâu ạ