Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Vương Thị Minh Tâm

9-Trong cuộc thi giải toán qua mạng internet mỗi học sinh đều có số điểm tích lũy riêng của mình. Số điểm tích lũy của mỗi học sinh là một số nguyên dương K (0 < K ≤ 2×109). Đội tuyển của trường THCS Tài Năng có N học sinh tham gia dự thi (2 ≤ N ≤ 100). Tại buổi gặp mặt trước kỳ thi cấp tỉnh, thầy hiệu trưởng quyết định thưởng cho các học sinh trong đội tuyển Q triệu đồng, biết rằng điểm tích lũy của mỗi học sinh đều chia hết cho Q.

Yêu cầu: Hãy tìm số nguyên dương Q lớn nhất.

Dữ liệu vào là  một mảng  gồm N số nguyên A[n] vớ N:số học sinh và a[i] là điểm tích lũy được của học sinh thứ i

10. Cho 1 dãy gồm n phần tử số nguyên a1,a2…an (0<= ai<=32000; 0<= n<=32000). Yêu cầu:

a. Đếm số lượng các số khác nhau có trong dãy.

b. Đếm số lần xuất hiện của từng phần tử trong dãy.

11-Trên một hòn đảo xinh đẹp, có n người thuộc nhiều bộ tộc sinh sống. Người dân ở đây rất hiền hòa, mỗi người thuộc một bộ tộc nào đó. Một nhà nhân chủng học muốn biết trên đảo có bao nhiêu bộ tộc. Ông nghĩ ra một cách, ông gặp và hỏi từng người trong n người trên đảo với một câu hỏi: “Bộ tộc của bạn có bao nhiêu người?”. Ông nhận được câu trả lời từ họ đó là số lượng người trong bộ tộc của họ. Từ kết quả thu được, nhà nhân chủng học sẽ xác định được số lượng bộ tộc khác nhau trên đảo.

Yêu cầu: Với n câu trả lời của n người dân, hãy xác định số lượng bộ tộc có trên đảo. 

Dữ liệu đầu vào:

-số nguyên dương n biểu thị cho số người sinh sống trên đảo

-mảng A gồm n số nguyên dương,phần tử A[i] là câu trả lời của người thứ i


viết theo pascal dùm mình nhé


 

Nguyễn Lê Phước Thịnh
2 tháng 1 2022 lúc 9:17

Bài 10:

uses crt;

var a,b:array[1..10000]of longint;

i,n,dem,j,dem1:longint;

kt:boolean;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem:=0;

b[1]:=a[1];

for i:=1 to n do 

begin

kt:=true;

for j:=1 to dem do 

  if b[j]=a[i] then kt:=false;

if kt=true then 

begin

dem:=dem+1;

b[dem]:=a[i];

end;

end;

writeln(dem);

for i:=1 to dem do

begin

dem1:=0;

for j:=1 to n do 

  if b[i]=a[j] then dem1:=dem1+1;

writeln(b[i],' xuat hien ',dem1,' lan');

end;

readln;

end. 


Các câu hỏi tương tự
nguyenthithuha
Xem chi tiết
Hoangthidale
Xem chi tiết
Lê Phương Thảo
Xem chi tiết
Phan uyển nhi
Xem chi tiết
Vương Thị Minh Tâm
Xem chi tiết
Anh Thư
Xem chi tiết
Phan uyển nhi
Xem chi tiết
Võ Thu Hằng
Xem chi tiết
Bui Trong Diep
Xem chi tiết