Bình Chọn Vietnam nexttop model - Bài Tập Pascal Tổng Hợp

Bình Chọn Vietnam nexttop model

Bình chọn qua điện thoạiTrong vòng chung kết cuộc thi “Vietnam Next Top Model” trên VTV3 các thí sinh được đánh số báo danh là một số nguyên dương có giá trị không vượt quá 1000. Khán giả xem truyền hình có thể bình chọn cho thí sinh mình yêu thích bằng cách nhắn tin qua điện thoại di động.
Ban tổ chức nhận được tin nhắn hợp lệ của N khán giả (các khán giả được đánh số từ 1 đến N), khán giả thứ i bình chọn cho thí sinh mang số báo danh ai.Hãy liệt kê số báo danh của những thí sinh được nhiều khán giả bình chọn nhất theo thứ tự tăng dần.

Dữ liệu: Vào từ file văn bản VNMODEL.INP
  • Dòng đầu tiên ghi số nguyên dương N là số lượng khán giả có tin nhắn bình chọn hợp lệ (N≤106)
  • N dòng tiếp theo, dòng thứ i ghi số nguyên dương ai là số báo danh của thí sinh mà khán giả thứ i bình chọn.
Kết quả: Ghi ra file văn bản VNMODEL.OUT
Danh sách các thí sinh được nhiều khán giả bình chọn nhất theo thứ tự số báo danh tăng dần


Ví dụ:
VNMODEL.INP
VNMODEL.OUT
5
3
1
3
2
2
2
3

Ghi chú: Có ít nhất 50% số điểm của bài tương ứng với các test có N≤1000.
var i,j,k,n,max:longint;
a:array[1..1000] of longint;
f1,f2:text;
begin
assign(f1,'binhchon.inp');reset(f1);
assign(f2,'binhchon.out');rewrite(f2);
readln(f1,n);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
readln(f1,k);
inc(a[k]);
end;
j:=0;
for i:=1 to 1000 do
if a[i] >=max then max:=a[i];
for j:=1 to 1000 do
if a[j] = max then writeln(f2,j);
close(f1);
close(f2);

end.
Previous
Next Post »