HD
1
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
3 tháng 1 2020
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
DC
27 tháng 10 2019
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
P
2
6 tháng 10 2018
| Dãy số | 15 | 10 |
13 |
17 | |
| i | 1 |
2 |
3 | 4 | 5 |
| Min | 15 | 10 | 10 |
10 |
Vậy giá trị nhỏ nhất là 10
31 tháng 10 2020
1:
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
tb:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i]>0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so duong la: ',t);
writeln('So luong cac so duong la: ',dem);
tb:=t/dem;
writeln('Trung binh cong cac so duong la: ',tb:4:2);
readln;
end.
2:
uses crt;
var n,i,s:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
t:=1;
for i:=1 to n do
begin
s:=s+i;
t:=t*i;
end;
writeln('Tong cua day so tu 1 toi ',n,' la: ',s);
writeln('Tich cua day so tu 1 toi ',n,' la: ',t);
readln;
end.
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.
Cảm ơn bạn nhưng bạn có thể viết dưới dạng thuật toán theo từng bước được không ( cảm ơn trước 1 lần nữa )