Tin học 10

Lê Thanh Huy

Lê Thanh Huy

Học sinh chăm học
Thành viên
27 Tháng hai 2017
99
20
96
Quảng Nam
var n,i,min,d:longint;
a:array[1..100000] of longint;
begin
read(n);
for i:=1 to n do
read(a);
min:=a[1];
for i:=2 to n do
if min>a[2] then min:=a[2];
write(min);
for i:=1 to n do
if a=min then inc(d);
write(d);
end.
 
  • Like
Reactions: kingsman(lht 2k2)
kingsman(lht 2k2)

kingsman(lht 2k2)

Mùa hè Hóa học|Ngày hè tuyệt diệu
Thành viên
TV BQT tích cực 2017
1 Tháng ba 2017
2,454
2,756
554
quê của nhà văn '''NGUYỄN NHẬT ÁNH''
me.zing.vn
Giang Nhược Hân said:
Viết Thuật toán:
Input: N= 1 2 1 5 1 7 1
Output: Chu so nho nhật la: 1
So lan xuat hien: 3
Bấm để xem đầy đủ nội dung ...
B1 Nhập các giá trị N , 1 2 1 5 1 7 1
B2 Gán i := 2, Min:= 1
B3 Nếu i < 1 thì Min := 1
B4 Tăng i lên 1 đơn vị
B5 Nếu i<=N thì quay về B3 ( Lệnh lặp ) B6 Nếu i > N thì Min là giá trị nhỏ nhất
B7 Thông báo kết quả
B8 Kết thúc
 
  • Like
Reactions: Giang Nhược Hân
kingsman(lht 2k2)

kingsman(lht 2k2)

Mùa hè Hóa học|Ngày hè tuyệt diệu
Thành viên
TV BQT tích cực 2017
1 Tháng ba 2017
2,454
2,756
554
quê của nhà văn '''NGUYỄN NHẬT ÁNH''
me.zing.vn
Lê Thanh Huy said:
var n,i,min,d:longint;
a:array[1..100000] of longint;
begin
read(n);
for i:=1 to n do
read(a);
min:=a[1];
for i:=2 to n do
if min>a[2] then min:=a[2];
write(min);
for i:=1 to n do
if a=min then inc(d);
write(d);
end.
Bấm để xem đầy đủ nội dung ...

đề yêu cầu viết thuật toán về gtnn và tần suất mà bạn ..chứng ko phải viết chương trình
 
Giang Nhược Hân

Giang Nhược Hân

Học sinh
Thành viên
19 Tháng bảy 2017
57
34
26
Gia Lai
kingsman(lht 2k2) said:
B1 Nhập các giá trị N , 1 2 1 5 1 7 1
B2 Gán i := 2, Min:= 1
B3 Nếu i < 1 thì Min := 1
B4 Tăng i lên 1 đơn vị
B5 Nếu i<=N thì quay về B3 ( Lệnh lặp ) B6 Nếu i > N thì Min là giá trị nhỏ nhất
B7 Thông báo kết quả
B8 Kết thúc
Bấm để xem đầy đủ nội dung ...
Vậy không có đếm số lần xuất hiện ạ?
 
You must log in or register to reply here.
Top Bottom