Viết chương trình nhập vào mảng gồm có n phần tử và một số nguyên k. Hãy in ra vị trí bắt đầu và số phần tử của đoạn con có trung bình cộng bằng k

0 bình luận về “Viết chương trình nhập vào mảng gồm có n phần tử và một số nguyên k. Hãy in ra vị trí bắt đầu và số phần tử của đoạn con có trung bình cộng bằng k”

1. uses crt;
   var n,k,s,j,i:longint;
       ok:boolean;
       a:array[0..100000]of longint;
   begin
           clrscr;
           read(n,k);
           for i:=1 to n do
                   read(a[i]);
           for i:=1 to n do
                   begin
                           s:=0; ok:=false;
                           for j:=i to n do
                               begin
                                   s:=s+a[j];
                                   if (s div (j-i+1)=k) and (s mod (j-i+1)=0) then
                                           begin
                                                   ok:=true;
                                                   break;
                                           end;
                               end;
                           if ok=true then break;
                   end;
           writeln;
           if ok=true then write(i)
           else write(‘ko co day con tb=k’);
           readln; readln;
   end.

   Bình luận