Tin học 10

[Giang Nhược Hân]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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

 

[Giang Nhược Hân]

Ai giải giùm mik với

 

[Lê Thanh Huy]

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.

 

[kingsman(lht 2k2)]

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

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

 

[kingsman(lht 2k2)]

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.

đề 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]

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

Vậy không có đếm số lần xuất hiện ạ?

 

[kingsman(lht 2k2)]

Vậy không có đếm số lần xuất hiện ạ?

ĐỂ mình XEM LẠI ....lâu nay viết chương trình mãi ,,,,thuật toan nghĩ sẵntrong đầu ...nên viết sai hoăc thiếu

 

[Giang Nhược Hân]

ĐỂ mình XEM LẠI ....lâu nay viết chương trình mãi ,,,,thuật toan nghĩ sẵntrong đầu ...nên viết sai hoăc thiếu

Cảm ơn bạn trước nhé