1. Вычислить сумму первых N слагаемых 12+22-32+42+52-62+…(каждое третье слагаемое берется...

Question

1. Вычислить
сумму первых N
слагаемых 12+22-32+42+52-62+…(каждое
третье слагаемое берется со знаком «минус»).
1. Из N
целых чисел найти минимальное среди положительных и максимальное среди
отрицательных значений.

Answer 1

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 < 0) and (t > max)) then
      max := t;
  end;
  
  writeln(max, ' ', min);
end.