Question

Cho dãy gồm N số nguyên dương a1,a2,..., an và giá trị K. Hãy đếm các cặp phần tử ai + aj = K ( với i < j )

pờ lí hép mii <33

Answer 1

uses crt;

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

i,n,j,dem,k:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

dem:=0;

for i:=1 to n-1 do

for j:=i+1 to n do 

  if a[i]+a[j]=k then inc(dem);

writeln(dem);

readln;

end.