Nhập vào n phần tử trong mảng, sau đó nhập vào số nguyên k, hãy tìm tất cả dãy con có tổng bằng k?
Ví dụ : nhâp 10 số
Input :
3 6 1 2 5 1 6 3 4 2
k = 9
Output
6 1 2
1 2 5
6 3
3 4 2
Nhập vào n phần tử trong mảng, sau đó nhập vào số nguyên k, hãy tìm tất cả dãy con có tổng bằng k?
Ví dụ : nhâp 10 số
Input :
3 6 1 2 5 1 6 3 4 2
k = 9
Output
6 1 2
1 2 5
6 3
3 4 2
program tongbangk;
uses crt;
var A:array[1..100] of integer;
i,n,k,j,t,l:integer;
begin
clrscr;
write(‘Nhap so luong phan tu cua mang: ‘); readln(n);
writeln(‘NHAP GIA TRI PHAN TU CUA MANG’);
for i:=1 to n do
begin
write(‘phan tu thu ‘,i,’ la: ‘);
readln(a[i]);
end;
write(‘Nhap k: ‘); readln(k);
writeln(‘Cac day co tong bang ‘,k,’ la: ‘);
for i:=1 to n-1 do
begin
t:=A[i];
for j:=i+1 to n do
begin
t:=t+A[j];
if t=k then
begin
for l:=i to j do
write(A[l],’ ‘);
writeln;
end;
end;
readln
end.