Question

Viết chương trình cho dãy n, cho số k. Tìm có bao nhiêu cặp thõa mãn điều kiện A1+Aj=k.

Vd: Dãy n là 5 7 3 10 13

Cho k=15

thì có 5+10=15(trong đó 5 là A1, 10 là Aj, 15 là k);

Sau đó in ra màng hình số cặp thõa mãn điều kiện A1+Aj=k.

(Vd: 'Có 1 cặp số')

Answer 1

uses crt;
var a:array[1..100]of integer;
i,n,k,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap so k='); readln(k);
dem:=0;
for i:=2 to n do
if a[1]+a[i]=k then dem:=dem+1;
writeln('Co ',dem,' cap so');
readln;
end.