

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program khong_biet_lam;
uses crt;
var b,c : array[1..100000] of integer;
i,n,j,dem : integer;
begin
read(n);
j:=1;
for i:=1 to n do
begin
read(b[j]); read(c[j]);
inc(j);
readln;
end;
dem:=0;
n:=j-1;
for i:=1 to n-1 do
begin
for j:= i+1 to n do
if (b[i] = b[j]) and (c[i]<>c[j]) then
begin
inc(dem);
c[j] := c[i];
end;
end;
write(dem);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
41
10578
29
Xin mời pro giải giúp: https://hoidap247.com/cau-hoi/4807791
42
1285
22
mink k hc nhiều c++ lắm, nếu pascal thì đc
41
10578
29
ok
42
1285
22
z cần lm k bn
41
10578
29
có
42
1285
22
ok,z đợi mink xíu