Chia dãy

 Nhập một dãy số nguyên dương (kiểme tra xem dãy được nhập đúng hay không). Tìm vị trí chia dãy thành hai dãy con sao cho hiệu giữa tổng hai dãy con đó là bé nhất.

                                                            Lời giải tham khảo
uses crt;
var
   i,n: integer;
   a: array[1..255] of real;
   min,s: real;
begin
     clrscr;
     writeln('nhap so phan tu cua day: ');readln(n);
     for i:=1 to n do
         begin
              readln(a[i]);
              s:=s+a[i];
         end;
     s:=s/n; min:=abs(a[1]-s);
     for i:=1 to n do
         if abs(a[i]-s)<=min then
                 min:=abs(a[i]-s);
     writeln('SO GAN VOI TRUNG BINH CONG NHAT LA: ');
     for i:=1 to n do
         if abs(a[i]-s)=min then writeln(a[i]:5:1,' o vi tri thu ',i);
     readln;
end.