program p1;
const
n=10;
var
v: array[1..n] of integer;
i: integer;
c1, c2: integer;
p: integer;
begin
for i:= 1 to n do
readln(v[i]);
c1:= 0;
for i:= 1 to n div 2 do
c1 := c1 + v[i];
c2:= 0;
for i:= n div 2 +1 to n do
c2 := c2 + v[i];
if c1>c2 then
p:= 1
else
p := 2;
writeln('p=', p);
readln;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.