Viết chương trình nhập vào từ bàn
phím N số tự nhiên (với 10 <= N <= 40). Xuất ra màn hình số có số lần xuất
hiện nhiều nhất và số lần xuất hiện tương ứng.
Lưu ý: Trong trường hợp có nhiều kết quả
đúng theo yêu cầu thì in ra kết quả của số có giá trị lớn nhất.
Chương trình ví dụ:
Ban
muon nhap day so N gom bao nhieu so: 12
Moi
ban nhap lan luot cac so: 9 52 11 11 52 11 9 6 11 52 52 6
So
xuat hien nhieu nhat la so: 52 voi so lan xuat hien la: 4
CODE THAM KHẢO:
program solanxuathien;
uses crt;
var A: array[1..100] of integer;
i,n,dem,dem1,j,k: integer;
begin
clrscr;
Repeat
write('Nhap N = '); readln(n);
if (n < 10) or (n>40) then writeln('So khong hop le. Moi ban nhap lai!!');
until (n>=10) and (n<=40);
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
end;
for i:=1 to n do
begin
dem:=0;
for j:=1 to n do
if A[i] = A[j] then dem:=dem+1;
if (dem1 <= dem) and (A[i] > k) then
begin
dem1:=dem;
k:=A[i];
end;
end;
writeln('So xuat hien nhieu nhat la: ',k,' voi so lan xuat hien la: ',dem1);
readln;
end.
Đăng nhận xét