Tin học Nhập dãy số và số lần xuất hiện

uyen132004@yahoo.com said:

ko đc bạn ơi , nó cứ hiện như thế này !!!!!!!!!!!!!!!!!

Bấm để xem đầy đủ nội dung ...

s:=1;
For i:=1 to n do
if a[i]=a[i+1] then inc(s) else
If s>=k then writeln(s[i]);
End;

uyen132004@yahoo.com said:

nhập dãy số và số lần xuất hiện , in ra các số có số lần xuất hiện = số đã cho
vd : nhập dãy số 1 7 8 3 8 8 1
số lần xuất hiện : 2
xuất những số có số lần xuất hiện 2 lần trở lên : 1 8
mấy bác kt xem e sai chỗ nào ạ!!

Bấm để xem đầy đủ nội dung ...

Nhật Hạ ! said:

À à, vậy bạn sắp xếp trước rồi làm như này:

Mã:

s:=1;
For i:=1 to n do
if a[i]=a[i+1] then inc(s) else
If s>=k then writeln(s[i]);
End;

Xem thử được không nha bạn

Bấm để xem đầy đủ nội dung ...

var  a,b:array[1..1000000] of integer;
       n,max,max1:int64;
        i,k:integer;
begin
read(n,k);
  for i:=1 to n do
   begin
    read(a[i]);
    inc(b[a[i]]);
    if max<a[i] then max:=a[i];
   end;
 for i:=1 to max do
   if b[i]>=k then write(i,' ');
readln;
end.