Trên Pascal, viết chương trình:
1. Đếm số phần tử xuất hiện nhiều nhất trong mảng, In phần tử và sô lần xuất hiện của phần tử đó.
Code:
program no_1;
uses crt;
var a,d,b,c:array[1..100] of integer;
var i,n,j,t,s,k,tg,th,id:integer;
kt:boolean;
begin
clrscr;
kt:=true;
write('Nhap n la:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
d[i]:=1;
for i:=1 to n-1 do
begin
j:=i+1;
while j<=n do
if a[i]=a[j] then begin
for k:=j to n do
a[k]:=a[k+1];
n:=n-1;
d[i]:=d[i]+1;
end else j:=j+1;
if d[i]>1 then b[i]:=d[i];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]<b[j] then
begin
tg:=b[i];
b[i]:=b[j];
b[j]:=tg;
th:=a[i];
a[i]:=a[j];
a[j]:=th;
end;
k:=0;
if n=1 then writeln('Phan tu xuat hien nhieu nhat la: ',a[1]) else
if b[1]=b[n] then
writeln('Cac phan tu xuat hien bang nhau va xuat hien ',b[n],' lan') else
begin
for i:=1 to n do
if b[1]=b[i] then k:=k+1;
Writeln('Co ',k,' phan tu xuat hien nhieu nhat va xuat hien ',k,' lan');
writeln('Phan tu xuat hien nhieu nhat la:');
for i:=1 to n do
if b[1]=b[i] then write(a[i]:4);
end;
readln
end.