Nhập một dãy A có N số tự nhiên (N<40) và 1 số K. Hãy xuất ra các phần tử có số lần xuất hiện trong dãy A từ K lần trở lên ( Mỗi số chỉ xuất 1 lần)
Dữ liệu nhập: file DAYSO.INP:
- Dòng 1: 2 số N, K giữa 2 số cách nhau 1 khoảng trắng
- Dòng 2: Dãy A
Kết quả: file DAYSO.OUT: xuất các số thỏa điều kiện trên, trường hợp không có số nào thỏa thì xuất số -1
DAYSO.INP DAYSO.OUT
6 2
1 2 2 3 6 6 2 6
Đăng ký:
Đăng Nhận xét (Atom)
Bài được xem nhiều nhất
-
Cho dãy n số nguyên dương a1, a2, …, an và số nguyên dương S. Hãy đếm xem có bao nhiêu cặp phần tử (ai, aj) (i <> j) thỏa mãn ai + aj ...
-
Cho trước số nguyên dương n. Viết chương trình kiểm tra xem có bao nhiêu số nguyên dương nhỏ hơn hoặc bằng n nguyên tố cùng nhau với n (nghĩ...
-
Tìm X biết: 10 + 11 + 12 + 13 + ... + X = 5106 ------ Hướng dẫn giải: Hãy cố gắng nhớ lại công thức tính tổng dãy tăng có quy luật (số đ...
-
Xét xâu S chỉ bao gồm các kí tự ngoặc mở ‘(‘ và ngoặc đóng ‘)’. Xâu S xác định một cách đặt ngoặc đúng, nếu thỏa mãn các điều kiện: · Tổng ...
-
Phân tích số nguyên dương thành tổng các số hạng của dãy Fibonaci sao cho ít số hạng nhất (các số hạng không được trùng nhau). Xem clip hư...
-
Nhập xâu s chỉ chứa các chữ cái viết hoa. Đếm xem s có bao nhiêu kí tự khác nhau. Input · Dòng 1: số test t · t dòng sau: mỗi dòng 1 xâu ...
-
Đề thi tin học trẻ bảng C tỉnh Quảng Bình năm 2009 Trong máy tính, để tiết kiệm bộ nhớ, người ta thường tìm cách nén dữ liệu. T...
-
Cho trước số nguyên dương n <10. Hãy in ra tất cả các hoán vị có n phần tử liên tục kể từ số 1. Ví dụ: n=3 ta có 6 hoán vị: 123, 132, 213...
-
Trong xã hội ngày nay, thông tin đã trở thành một dạng tài nguyên - tài nguyên thông tin. Tài nguyên thông tin cũng như tài nguyên vật chất...
-
(Tuyến sinh phổ thông năng khiếu 2007) Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy.Cho một dãy gồm N số nguyên a1, a2, …, aN, mỗi số có gi...
Uses crt;
Trả lờiXóaVar n,k,i:longint;
f:array[1..40] of longint;
t:array[1..10000000] of longint;
procedure nhap;
Var fi:text;
Begin
assign(fi,'DAYSO.INP');
reset(fi);
read(fi,n,k);
For i:=1 to n do
read(fi,f[i]);
close(fi);
end;
procedure xuat;
Var fo:text;
Begin
assign(fo,'DAYSO.OUT');
rewrite(fo);
For i:=1 to n do
If t[f[i]]>=k then Begin t[f[i]]:=0; Write(fo,f[i]); Write(fo,' '); end;
close(fo);
end;
Begin
nhap;
fillchar(t,sizeof(t),0);
For i:=1 to n do
t[f[i]]:=t[f[i]]+1;
xuat;
end.
Nhận xét này đã bị tác giả xóa.
Trả lờiXóa#include
Trả lờiXóausing namespace std;
int main(int argc, char** argv) {
int n,k,l,a[100],dem;
cin >>n>>k>>l;
for (int i;i>a[i];
for(int i=1;i1)) break;
if (dem>=k)
{
cout <<a[i]<<" ";
break;
}
}
}
return 0;
}
#include <iostream>
Trả lờiXóa#include <fstream>
#include <algorithm>
using namespace std;
int main(int argc, char** argv) {
ofstream cout;
cout.open("D:/Dong/DAYSOout.txt");
ifstream cin;
cin.open("D:/Dong/DAYSOinp.txt");
int n,k,a[10000],dem=1,ds=0;
cin >>n>>k;
for (int i=0;i<n;i++) cin >>a[i];
sort(a,a+n);
a[n]=41;
for (int i=0;i<n;i++){
if (a[i]==a[i+1]) dem++;
else {
if (dem>=k){
cout <<a[i]<<" "<<dem<<endl;
ds=ds+1;
}
dem=1;
}
}
if (ds==0) cout <<"-1";
cin.close();
cout.close();
return 0;
}