Tin học Đếm số lần xuất hiện của phần tử x trong mảng

[SamNguyenxnnh]

[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.

Nhập 1 số X từ bàn phím. Đếm số lần xuất hiện của phần tử đó trong mảng:
Input:
10
1 5 6 7 4 1 5 5 1 1
Output:
1
4
Mình cày 3 tiếng rồi nhưng vẫn chưa làm được. Các bạn giúp mình viết câu lệnh cho bài này nhé! Mong nhận được sự giúp đỡ từ mọi người.

 

[Trâm Nguyễn Thị Ngọc]

var
a:array[1..100] of integer;
x,d,i,n:integer;
begin
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a [ i ]);
end;
readln(x);
for i:=1 to n do
if a=x then d:=d+1;
writeln('so lan xuat hien cua ',x,' trong mang la:',d);
readln
ENd.

 

[Chu Minh Hiền]

Nhập 1 số X từ bàn phím. Đếm số lần xuất hiện của phần tử đó trong mảng:
Input:
10
1 5 6 7 4 1 5 5 1 1
Output:
1
5
Mình cày 3 tiếng rồi nhưng vẫn chưa làm được. Các bạn giúp mình viết câu lệnh cho bài này nhé! Mong nhận được sự giúp đỡ từ mọi người.

Bạn ơi mik ko hiểu chỗ input và output của bạn lắm . Đây là CT mk viết bạn kiểm tra xem có kết quả xuất ra có đúng không nhé (p/s: Ko biết bạn có học kiểu này không hay nhập dữ liệu theo tệp .inp nếu có thì bảo mk để sửa nhé)

 

[SamNguyenxnnh]

Bạn ơi mik ko hiểu chỗ input và output của bạn lắm . Đây là CT mk viết bạn kiểm tra xem có kết quả xuất ra có đúng không nhé (p/s: Ko biết bạn có học kiểu này không hay nhập dữ liệu theo tệp .inp nếu có thì bảo mk để sửa nhé)
View attachment 97946

Theo tệp .inp và .out bạn nhé!

 

[Trâm Nguyễn Thị Ngọc]

Theo tệp .inp và .out bạn nhé!

Nhưng tệp tên gì vậy bạn

 

[Vuio Vuio]

Input:
10
1 5 6 7 4 1 5 5 1 1
Output:
1
5

Kiểm tra lại đề xem, input với output có vấn đề.
Input: Số X là số nào ?
Output: Nếu X = 1 thì output phải là 4 chứ.

 

[SamNguyenxnnh]

Nhưng tệp tên gì vậy bạn

Mình đã sửa lại thành 4 rồi. Còn tên tệp là 'nhap.inp' và 'xuat.out'.

 

[Trâm Nguyễn Thị Ngọc]

Mình đã sửa lại thành 4 rồi. Còn tên tệp là 'nhap.inp' và 'xuat.out'.

Vậy thì code đây bạn:
var
a:array[1..100] of integer;
x,d,i,n:integer;
fi,fo:text;
begin
assign(fi,'nhap.inp');reset(fi);
assign(fo,'xuat.out');rewrite(fo);
read(fi,n);
for i:=1 to n do
read(fi,a [ i ]);
read(fi,x);
for i:=1 to n do
if a [ i ]=x then d:=d+1;
writeln(fo,d);
Close(fi);close(fo);
ENd.

Sai cái gì thì bn nhớ nói mk để mk sửa nha
FILE vào

Flie ra:

 

[SamNguyenxnnh]

Sai cái gì thì bn nhớ nói mk để mk sửa nha
FILE vào
View attachment 98011
Flie ra:
View attachment 98012

Bạn ơi! Làm thế nào để hiển thị số 1 trên số 4 ở phần output vậy?

 

[Trâm Nguyễn Thị Ngọc]

Bạn ơi! Làm thế nào để hiển thị số 1 trên số 4 ở phần output vậy?

Mình nghỉ là đề của bạn bị sai rồi
Bởi vì 1 là giá trị của x nhập vào nên nó phải ở phần input mới đúng nha. theo mình nghĩ là như vậy