Rank Tên đăng nhập Điểm ▾ Bài tập Giới thiệu
1 22281 128

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

2 18630 230

“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”

3 17003 130

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

4 15161 223
5 12311 22
6 11610 159
7 11532 137

8 11166 33
9 11158 18
10 10937 53

Hê lô

11 9795 13
12 9098 10
13 9088 197

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

           Ú òa!
I am nguyenbaongoc130113
14 8371 5
15 7344 39
16 6565 41

dz s1tg

17 6119 39
18
PY1DVoTruongHuy 1069
TK22LeCongMinh
5936 94
19 5078 4
20
nguyenhongnam207
Nguyễn Hồng Nam
4804 5
21 4767 45
22 4575 18
23
trangtrangVN 888
Hoàng Minh Vũ, Kon Tum
3796 16
24 3761 38
25
lykhai0806
khaihacker
3578 28
26 3540 8
27 2595 5
28 2551 4

sdfsdgsggasdghdfdg

29 2506 25
30 2415 36

mmb

31
phamhoangson08
Alex Marself
2400 14
32 2193 5
33 2183 3
34 1730 3
35 1601 1
36 1414 8
37 1208 5
38 801 1
39
kwongson
Kwong Son
748 9
40 501 1
41 401 1
42 301 1
43 201 1
44 198 3
45 197 2

code_hack

45 197 2
47 150 1
48 71 1
49 1 1
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0

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.

50 0 0
50 0 0
50 0 0
50
quanpham10bt
Phạm Gia Minh Quân
0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0

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

50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0