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.
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. Liệt kê
Bước 1: Nhâp N
Bước 2: i←1; s←0;
Bước 3: Nếu i>N thì in ra S rồi kết thúc
Bước 4: S←S+i;
Bước 5: i←i+1, quay lại bước 3
b.
Bước 1: Nhâp N
Bước 2: i←1; s←1;
Bước 3: Nếu i>N thì in ra S rồi kết thúc
Bước 4: S←S+i*5;
Bước 5: i←i+1, quay lại bước 3
c.
Bước 1: Nhâp N và dãy a1,a2,a3,...,aN
Bước 2: i←1; s←1;
Bước 3: Nếu i>N thì in ra S rồi kết thúc
Bước 4: S←S+1/ai;
Bước 5: i←i+1, quay lại bước 3
d.
Bước 1: Nhâp N,K và dãy a1,a2,a3,...,aN
Bước 2: i←1; d←0;
Bước 3: Nếu i>N thì in ra d rồi kết thúc
Bước 4: Nếu ai<K thì d←d+1;
Bước 5: i←i+1, quay lại bước 3