K
Khách

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.

24 tháng 10 2017

bạn ơi cái này đâu phải toán lớp 1 đâu

24 tháng 10 2017

Mình nghĩ là bạn có sự nhầm lẫn

24 tháng 10 2017

mk ko bt 123

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.

30 tháng 3 2021

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

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,c[1000],k;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++)

c[a[i]]+=1;

k=0;

for (i=1; i<=n; i++) k=max(k,c[i]);

for (i=1; i<=n; i++) if (k==c[i]) cout<<i<<" "';

return 0;

}

17 tháng 3 2022

pascal đi bạn