1. She supports her theory with.......copious...............evidence. (COPY)

2. Will it ever be possible for the human race to reach the extreme.....boundaries........ of the universe? (BOUND)

3. He says he had no intention of hurting me, but I am sure he hit me.....purposefully...... (PURPOSE)

4. Safety tests on old cars have been..........standardized..................... throughout Europe. (STANDARD)

5. The teacher warned the children that if they......misbehaved..........again, they would be punished. (BEHAVE)

Cho một mảng các số nguyên dương, đếm số lần xuất hiện của mỗi phần tử có trong mảng.

Dữ liệu nhập

Dòng đầu tiên chứa một số nguyên n (1≤n≤10​5​​), với n là số phần tử trong mảng của Nguyên. Dòng thứ 2 chứa nn số nguyên Ai(0≤A​i​​≤10​9​​), mỗi số cách nhau một khoảng trắng.

Dữ liệu xuất

In ra nn số nguyên, với số thứ ii là số lần xuất hiện của A​i​​ ở trong mảng AA.

Có 30% số test có 1≤n≤10​3​​.

Ví dụ

Nhà máy Thiên Long cần kết hợp N công việc thành một dây chuyền sản xuất.Công việc thứ i cần ai ngày công. Mỗi công đoạn sản phẩm là kết hợp 2 công việc liên tiếp lại với nhau thành một công việc với chi phí cho công đoạn này bằng tổng ngày công của 2 công việc đó.
Yêu cầu: Bạn hãy giúp nhà máy ghép N công việc đó thành dây chuyền bằng N-1 công đoạn sản phẩm sao cho tổng chi phí các công đoạn là nhỏ nhất.
Dữ liệu vào: Gồm 2 dòng
+ Dòng đầu ghi số N (1 ≤ n ≤ 100) là số công việc.
+ Dòng thứ hai ghi số N nguyên dương ai (1 ≤ ai ≤1000) là số ngày công của công
việc thứ i.
Kết quả: Một số nguyên dương là chi phí nhỏ nhất tìm được.
Ví dụ:

Giải thích: 4 2 1 7 5
4 3 7 5
7 7 5
7 12
19
Tổng chi phí: 3+7+12+19=41

giúp mk với ạ!

Em hãy viết chương trình cho biết số từ của đoạn dài nhất liên tiếp các từ
có cùng độ dài của một đoạn văn bản cho trước.

uses crt;
var s:string; a:array[1..1000]of longint;
    i,t,n,max,j:longint;
begin
  clrscr;
  write('s=');
  readln(s);
  n:=length(s);
  t:=1;
  For i:=1 to n do
    If(s[i]<>' ')or(i=1)then
    a[t]:=a[t]+1 else inc(t);
  for i:=1 to t do
    begin
      j:=i;
      while a[j]=a[i] do inc(j);
      If j-i>max then max:=j-i;
    end;
  writeln(max);
 readln
end.

đây là bài cô mk chữa mà mk chưa hiểu lắm giải nghĩa giúp mk với ạ