Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
var n,i,j: longint;
check: boolean;
a: array[1..1000000] of longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do begin
check:=false;
for j:=i+1 to n do
if a[i]=a[j] then begin
a[j]:=-1;
check:=true;
end;
if check=true then a[i]:=-1;
end;
for i:=1 to n do if a[i]<>-1 then begin
writeln(a[i]);
write(i);
break;
end;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin