Code

uses crt;
var n,i: integer;
var a: array[1..1000] of integer;
function sumArray(a: array of integer;l,r: integer): integer;
var i,sum: integer;
begin
sum := 0;
for i := l to r do sum := sum + a[i];
sumArray := sum;
end;
begin
readln(n);
for i := 1 to n do read(a[i]);
for i := 1 to n do
    if sumArray(a,0,i-1) = sumArray(a,i,n-1) then
    begin
        writeln(i);
        break;
    end;
end.

uses crt;

var A : array [1 .. 1000] of integer;

    i, n, S, X : integer;

begin

clrscr;

readln(n);

S := 0;

for i := 1 to n do 

    begin

        read(A[i]);

        S := S + A[i]; 

    end;

i := 1; X := 0;

while X < (S - X) do

    begin 

        X := X + A[i];

        i := i + 1; 

    end;

if (X = (S - X)) then write(i - 1) else write(0);

readln

end.