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)
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])
cố lên
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 : ‘);