Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a,b:array[1..100]of integer;
i,n,max,dem,j,kt,dem1,sct:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=1;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[j]=a[i] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
max:=0;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if b[i]=a[j] then inc(dem1);
if max<dem1 then
begin
max:=dem1;
sct:=b[i];
end;
end;
writeln('So xuat hien nhieu nhat la: ',sct);
writeln('So lan xuat hien la: ',max);
readln;
end.
Tư tưởng: Sort mảng a tăng dần, khi đó các phần tử giống nhau sẽ nằm cạnh nhau, rồi ta duyệt từ đầu đến cuối và đêm.
Code (C++): https://gist.github.com/minotour4869/7421de6e4c0ba475babc5c52c3a13728
Chúc bạn học tốt nha😉.
program dem_so;
uses crt;
var i,n,dem,k:longint;
a:array[1..100]of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write(a[',i,']=');readln(a[i]);
end;
dem:=0;
write('nhap so k:');readln(k);
for i:=1 to n do
if a[i]=k then dem:=dem+1;
if dem=0 then write(k,' khong co trong day so tren');
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,k,h,dem,t,dem1,dem2,t1,t2:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write('A[',i,']='); readln(a[i]);
end;
n:=100;
write('Nhap k='); readln(k);
for i:=1 to n do
if a[i]=k then write(i:4);
writeln;
write('Nhap h='); readln(h);
dem:=0;
for i:=1 to n do
if a[i]=h then inc(dem);
writeln(h,' xuat hien ',dem,' lan trong mang');
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu cua day la: ',t);
dem1:=0;
t1:=0;
dem2:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
inc(dem1);
t1:=t1+a[i];
end;
if a[i]<0 then
begin
inc(dem2);
t2:=t2+a[i];
end;
end;
writeln('Co ',dem1,' so duong');
writeln('Tong cac so duong la: ',t1);
writeln('Co ',dem2,' so am');
writeln('Tong cac so am la: ',t2);
readln;
end.
program xuat_hien_k_lan;
uses crt;
var i,n,k,j:integer;
a,b:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
write('nhap k:');readln(k);
for i:=1 to n do
begin
for j:=i to n do
if a[i]=a[j] then inc(b[i]);
end;
for i:=1 to n do
if b[i]>=k then write(a[i]:5);
readln;
end.