Tổng cặp số Tên chương trình CAPSO.PAS
Cho dãy số nguyên dương a1, a2, ..., an, 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 (ai, aj) thỏa mãn các điều kiện:
· ai + aj = 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 a1, a2, . . ., an
- Dòng cuối cùng chứa số nguyên...
Đọc tiếp
Tổng cặp số Tên chương trình CAPSO.PAS
Cho dãy số nguyên dương a1, a2, ..., an, 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 (ai, aj) thỏa mãn các điều kiện:
· ai + aj = 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 a1, a2, . . ., an
- 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 |
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.