var a: array [1..1000] of integer;
i,n,d,t,j : integer;
begin
writeln('Nhap n : ');readln(n);
for i:= 1 to n do begin
writeln;
write('a[',i,'] = ' );
readln(a[i]);
end;
t:=0;
for i:= 1 to n do
begin
d:=0;
for j:= i to n do if a[i]=a[j] then d:=d+1;
t:=t + (d div 2);
if (d>1) and (d mod 2>=1) then t:=t-(d mod 2);
end;
writeln;
writeln(t);
readln
end.

Tôi muốn học tập Scratch

private girls Adelaide

extreme hardcore porn

code_hack

mmb

sdfsdgsggasdghdfdg

dz s1tg

[(❁´◡`❁)]
Nguyễn Bảo Ngọc

           Ú òa!
I am nguyenbaongoc130113

Hê lô

Chỉ thích mỗi Bác Năm

“Các điều chúng ta biết chỉ là một giọt nước. Các điều chúng ta không biết là cả một đại dương”

𝓿𝓾̃ 𝓱𝓾𝔂 𝓽𝓻𝓾̛𝓸̛̀𝓷𝓰❁◕ ‿ ◕❁