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.
Bài 1:
a)
-Bước 1: nhập n và nhập dãy số
-Bước 2: i=1, t=0
-Bước 3: nếu a[i]>0 thì t→t+a[i];
-Bước 4: i→i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: xuất t
-Bước 7: kết thúc
b)
-Bước 1: nhập n và nhập dãy số
-Bước 2: i=1, nn=a[1];
-Bước 3: nếu nn>a[i] thì nn→a[i];
-Bước 4: i→i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: xuất nn
-Bước 7: kết thúc
c)
-Bước 1: nhập n và nhập dãy số
-Bước 2: i=1, dem=0
-Bước 3: nếu a[i]<0 thì dem→dem+1;
-Bước 4: i→i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: xuất dem
-Bước 7: kết thúc
Bài 2:
Thuật toán này thực hiện nhiệm vụ: nhập 1 dãy n số và một khóa k. kiểm tra xem khóa k có trong dãy hay không. nếu có hãy xuất vị trí của khóa k
Thuật toán:
Bước 1: Nhập n và nhập dãy số
Bước 2: s←0; i←1
Bước 3: s←s+i; i←i+1
Bước 4: Nếu i≤n thì quay lại bước 3
Bước 5: Xuất s
Bước 6: Kết thúc
Input :n,dãy A
Output: Tổng A( điều kiện phần tử A>= 0)
B1: Nhập n
B2: Nhập các phần tử
B3:Xét a1;a2;a3;...an >= 0 Nếu phần tử nào dương thì chuyển qua một danh sách
B4 S-< a1,a2,...an;
B5: Kết thúc thuật toán
Yêu cầu xuất cái gì vậy bạn?
Thuật toán liệt kê
Bước 1: Nhập N và dãy a1,a2,...,aN
Bước 2: i←n;
Bước 3: Nếu i=0 thì kết thúc thuật toán
Bước 4: In ra ai
Bước 5: i←i-1; quay lại bước 3