Thầy BINHHD có N phần quà cho N thí sinh dự thi kì thi DHBB năm nay. Trên hộp quà thứ i có ghi số nguyên ai. Sau khi tặng quà cho các thí sinh, thầy BINHHD sẽ có thêm những phần quà may mắn cho mỗi cặp thí sinh có cặp số trên hộp quà là ai, aj (i≠j) nếu với một số K cho trước, |ai + aj| = K.
Yêu cầu: Hãy cho biết thầy BINHHD phải chuẩn bị bao nhiêu phần quà may mắn.
Dữ liệu:
Dòng 1: Gồm 2 số N và K.
Dòng 2: Gồm N số là các phần tử trong dãy A.
Kết quả:
Gồm 1 dòng duy nhất ghi số lượng cặp số may mắn.
Ví dụ
Input
7 5
4 3 4 1 4 3 4
Output
4
Input
5 11
-4 -1 0 7 -4
Output
0
Giới hạn:
Kích thước dữ liệu vào: 0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Thầy BINHHD có N phần quà cho N thí sinh dự thi kì thi DHBB năm nay. Trên hộp quà thứ i có ghi số nguyên ai. Sau khi tặng quà cho các thí sinh, thầy B", "text": "Thầy BINHHD có N phần quà cho N thí sinh dự thi kì thi DHBB năm nay. Trên hộp quà thứ i có ghi số nguyên ai. Sau khi tặng quà cho các thí sinh, thầy BINHHD sẽ có thêm những phần quà may mắn cho mỗi cặp thí sinh có cặp số trên hộp quà là ai, aj (i≠j) nếu với một số K cho trước, |ai + aj| = K. Yêu cầu: Hãy cho biết thầy BINHHD phải chuẩn bị bao nhiêu phần quà may mắn. Dữ liệu: Dòng 1: Gồm 2 số N và K. Dòng 2: Gồm N số là các phần tử trong dãy A. Kết quả: Gồm 1 dòng duy nhất ghi số lượng cặp số may mắn. Ví dụ Input 7 5 4 3 4 1 4 3 4 Output 4 Input 5 11 -4 -1 0 7 -4 Output 0 Giới hạn: Kích thước dữ liệu vào: 0
* Thời gian test ở hình.
uses crt;
var n,k,i,j,d:longint; a:array[1..1018] of longint;
begin
clrscr;
readln(n,k);
for i:=1 to n do
begin
read(a[i]);
for j:=1 to i do
if(abs(a[i]+a[j])=k)and(j<>i)then inc(d);
end;
writeln(d);
readln
end.
uses crt;
var i,j,d,n,k:longint; a:array[1..10000000]of longint;
begin
clrscr;
readln(n,k);
for i:=1 to n do
begin
read(a[i]);
for j:=1 to i-1 do
if abs(a[i]+a[j])=k then inc(d);
end;
writeln(d);
readln;
end.