• Khung trình chiếu

Bài tập: Tìm số xuất hiện nhiều nhất trong dãy

Các mã nguồn được viết bằng ngôn ngữ Pascal
Gửi hồi đáp
Ảnh đại diện người dùng
huynhbuutam
Nhà sáng lập
Nhà sáng lập
Các bài viết: 112
Đã gia nhập lúc: T3 31 Th8, 2021 22:04
Địa điểm: Trường THCS Châu Lăng
Tên thật: Huỳnh Bửu Tâm

Bài tập: Tìm số xuất hiện nhiều nhất trong dãy

Bài viết bởi huynhbuutam »

Tìm số xuất hiện nhiều nhất trong dãy N số, và số lần xuất hiện của nó
Chương trình ví dụ:

Mã: Chọn tất cả

Input:
10
1 2 3 4 5 2 1 3 6 7
Output:
1
2
Mã nguồn:

Mã: Chọn tất cả

Uses Crt;

Var i, j, N : Integer;
	M, C : Array[1..10000] Of Integer;
Begin
	ClrScr;
	Write('Nhap so luong phan tu: ');
	ReadLn(N);
	For i := 1 To N Do Begin
		Write('Nhap so thu ', i, ': ');
		ReadLn(M[i]);
	End;
	FillByte(C, SizeOf(C), 0);
	For i := 1 To N - 1 Do
		For j := i + 1 To N Do
			If M[i] = M[j] Then Inc(C[i]);
	j := 0;
	For i := 1 To N Do
		If C[i] > j Then j := i;
	WriteLn('So xuat hien nhieu nhat la: ', M[j]);
	Write('So la xuat hien la: ', C[j]+1);
	ReadLn;
End.
Gửi hồi đáp
  • Similar Topics
    Các hồi đáp
    Lượt xem
    Bài viết cuối