1. Вычислить

сумму первых N

слагаемых 12+22-32+42+52-62+ ... (каждое

третье слагаемое берется со знаком "минус").

1. Из N

целых чисел найти минимальное среди положительных и максимальное среди

отрицательных значений.

1)

var

b, c, n: integer;

begin

readln (n);

c : = 12;

for b : = 2 to n do

if (b mod 2 = 0) then

c : = c + (b * 10 + 2)

else

c : = c - (b * 10 + 2);

writeln (c);

end.

2)

var

max, min, n, i, t: integer;

begin

readln (n);

if (n = 0) then exit;

readln (t);

min : = 65536;

max : = - 65536;

for i : = 2 to n do

begin

readln (t);

if ((t > 0) and (t < min)) then

min : = t;

if ((t max)) then

max : = t;

end;

writeln (max, ' ', min);

end.