ptu trung nhau

[lehang_gb1]

Cho 1 dãy số có đúng 2 phần tử trong dãy bằng nhau. Hãy cho biết giá trị và vị trí của 2 phần tử đó trong dãy.
Dayso.int
5
0 1 4 1 2
Dayso.out
1
2 4

[quangtq]

Procedure Print;
Begin
For i:=1 to n-1 do
For j:=i+1 to n do If a[i]=a[j]
Begin Writeln(a[i]); Writeln(i:5,j:5); Exit; End;
End;


Phần kt xem dãy có đúng 2 pt bằng nhau hay ko đơn giản. Bạn tự làm

[lehang_gb1]

Program haiptu_trung_nhau;
Var A:array[1..100] of integer;
N,i,j:integer;
Begin
write('Nhap vao N:');
Readln(N);
For i:=1 to N do
begin
write('A[',i,']=');
Readln(A[i]);
end;
Write('Vi tri 2 phan tu trung nhau la');
For i:=1 to (n-1) do
For j:=i+1 to n do
If a[i]= a[j] then
Begin
write(i, ' ',j);
Readln;
exit;
end;
End.



[=========> Bổ sung bài viết <=========]

Nhưng viết đoạn ctrinh nhập vào dãy số thỏa mãn chỉ có 2 phần tử trùng nhau

[=========> Bổ sung bài viết <=========]

Mình sửa cả đoạn nhập vào dãy số phải thỏa mãn có 2 phần tử trùng nhau


Program haiptu_trung_nhau;
Var A:array[1..100] of integer;
N,i,j,dem,vt1,vt2:integer;
Begin

Repeat
write('Nhap vao N:');
Readln(N);
dem:=0;
For i:=1 to N do
begin
write('A[',i,']=');
Readln(A[i]);
end;
for i:=1 to n-1 do
For j:=i+1 to n do
If a[i]=a[j] then inc(dem);
if dem<>1 then writeln('Moi ban Nhap lai');
Until dem=1;
Write('Vi tri 2 phan tu trung nhau la');
For i:=1 to (n-1) do
For j:=i+1 to n do
If a[i]= a[j] then
Begin
write(i, ' ',j);
Readln;
exit;
end;
End.