Tin học 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 = 25/07/2021 By Isabelle 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. Trả lời