Question

Hãy viết ct nhập dãy A sau đó liệt kê cặp đôi phân tử ai và aj thoả mãn (ai+aj) read2=K dc nhập vào và i khác j

Answer 1

uses crt;
var a:array[1..100]of integer;
i,n,vt,k:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------------------------}
for i:=1 to n do
write(a[i]:4);
{---------------------------------------------}
writeln;
write('nhap so k:'); readln(k);
vt:=0;
for i:=1 to n-1 do
begin
if a[i]+a[i+1]=k then begin
vt:=i;
break;
end;
end;
if vt<>0 then write(a[vt],' va ',a[vt+1])
else writeln('khong co');
readln;
end.