Question

Tổng cặp số Tên chương trình CAPSO.PAS

Cho dãy số nguyên dương a₁, a₂, ..., a_n, trong đó có thể có những số bằng nhau. Với số nguyên x cho tr­ước (1 £ x £ 2000) hãy xác định số cặp (a_i, a_j) thỏa mãn các điều kiện:

· a_i + a_j = x.

· 1 £ i < j £ n.

Dữ liệu vào: Từ file văn bản CAPSO.INP:

- Dòng đầu tiên chứa số nguyên n (1 £ n £ 100).

- Dòng tiếp theo chứa n số nguyên a₁, a₂, . . ., a_n

- Dòng cuối cùng chứa số nguyên x.

Kết quả: Ghi ra file văn bản CAPSO.OUT, gồm một số nguyên duy nhất là số cặp tìm được.

Ví dụ:

CAPSO .INP	CAPSO .OUT
9 5 12 7 10 9 1 2 3 11 13	3

Answer 1

Program hotrotinhoc_hoc24;

const fi='CAPSO.INP';

fo='CAPSO.OUT';

var a: array[1..100] of integer;

i,j,n,x,d: integer;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do read(f,a[i]);

readln(f);

read(f,x);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to n do

for j:=i to n do

if i+j=x then inc(d);

write(f,d);

close(f);

end;

begin

ip;

out;

end.