Giúp mình vs ạ! Mình vote 5 sao Viết chương trình nhập vào 1 mảng và 1 số k, tìm và in ra vị trí, số phần tử của đoạn con có trung bình cộng bằng k. (Pascal)

Program hotrotinhoc;

var x,i,n,k: integer;

a: array[0..32000] of integer;

begin

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

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

for i:=1 to n do

begin

for i:=0 to 32000 do

if a[i]>=k then write(i,' ');

readln

end.

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

inc(a[x]);

end;

write('Cac phan tu xuat hien tu k lan tro len la : ');

• hi2345

Program hotrotinhoc;

var x,i,n,k: integer;

a: array[0..32000] of integer;

begin

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

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

for i:=1 to n do

begin

for i:=0 to 32000 do

if a[i]>=k then write(i,' ');

readln

end.

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

inc(a[x])

cố lên