Trang chủ Tin Học Lớp 8 Trong hội chợ xuân 2019, Ban tổ chức đã đưa...

Trong hội chợ xuân 2019, Ban tổ chức đã đưa ra rất nhiều trò chơi hấp dẫn và đặc sắc. Để các trò chơi thêm phần thú vị, Ban tổ chức đưa ra

Câu hỏi :

Trong hội chợ xuân 2019, Ban tổ chức đã đưa ra rất nhiều trò chơi hấp dẫn và đặc sắc. Để các trò chơi thêm phần thú vị, Ban tổ chức đưa ra quy định như sau: Mỗi người tham gia sẽ bắt ngẫu nhiên một số nguyên dương và chỉ được chơi những trò chơi có số thứ tự là ước của số nguyên đã bắt được. Tuy nhiên, trò chơi số 1 và 2 bị hỏng nên không có ai chơi được. Sau khi kết thúc hội chợ, Ban tổ chức muốn thống kê xem trò chơi nào có đông người chơi nhất và số lượng là bao nhiêu. Là một lập trình viên siêu việt, bạn hãy giúp Ban tổ chức làm việc này. Yêu cầu: Cho số nguyên n là số lượng người tham gia và dãy gồm n số nguyên dương là các số ngẫu nhiên mà mỗi người tham gia bắt được. Hãy đưa ra số lượng người chơi tối đa có thể của một trò chơi. Dữ liệu vào: Được cho ở tệp văn bản GAME.INP có cấu trúc như sau: - Dòng 1: Ghi một số nguyên n là số lượng người tham gia (1

Lời giải 1 :

uses crt;
var a,b: array[1..10000] of word;
i,n,max,maxx,j: word;
begin
assign (input,'GAME.INP');  reset (input);
assign (output,'GAME.OUT');  rewrite (output);
readln (n);
for i:=1 to n do read (a[i]);
max:=a[1];
for i:=2 to n do if max>a[i] then max:=a[i];
for i:=3 to max do
for j:=1 to n do
if a[j] mod i=0 then b[i]:=b[i]+1;
maxx:=b[1];
for i:=2 to max do
if maxx<b[i] then maxx:=b[i];
write (maxx);
close(input);
close(output);
end.

image

Thảo luận

-- tui bt, nhưng ý ông là ai lm ai
-- ủa mà sao qua nhóm kia vậy
-- tui bt, nhưng ý ông là ai lm ai => Là sao
-- bn kêu qua giúp :))
-- À ok
-- Liên minh luôn đi =))
-- Kêu nhóm đó liên minh luôn có gì giúp nhau =))
-- vãi kìn

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK