Задание 1. ЕГЭ-2016 - Архив: все задания

sum := sum + 1; 

sum := sum + digit;

writeln(digit)

writeln(sum)

алг
нач
 цел s = 6       | требуемое расстояние между показаниями
 цел amax = 1001 | больше максимально возможного показания
 цел N
 ввод N
 цел a                 | очередное показание прибора
 целтаб мини[0:s-1]    | текущие минимумы последних s элементов
 целтаб миничет[0:s-1] | чётные минимумы последних s элементов
 цел i
 | вводим первые s показаний, фиксируем минимумы
 цел ма; ма := amax     | минимальное показание
 цел мчет; мчет := amax | минимальное чётное показание
 нц для i от 1 до s
  ввод а
  ма := imin(ма, a)
  если mod(a,2) = 0 то мчет := imin(мчет,a) все
  мини[mod(i, s)] := ма
  миничет[mod(i, s)] := мчет
 кц
 цел мп = amax*amax | минимальное значение произведения
 цел п
 нц для i от s+1 до N
  ввод а
  если mod(a,2)=0
   то п := a * мини[mod(i, s)]
   иначе если мчет < amax
    то п := a * миничет[mod(i, s)]
    иначе п := amax*amax; 
   все
  все
  мп := imin(мп, п)
  ма := imin(ма, a)
  если mod(a,2) = 0 то мчет := imin(мчет,a) все
  мини[mod(i, s)] := ма
  миничет[mod(i, s)] := мчет
 кц
 если мп = amax*amax то мп:=-1 все
 вывод мп
кон

const s = 6; {требуемое расстояние между показаниями}
    amax = 1001; {больше максимально возможного показания}
var
 N: integer;
 a: array[1..s] of integer; {хранение s показаний прибора}
 a_: integer; {ввод очередного показания}
 ma: integer; {минимальное число без s последних}
 me: integer; {минимальное чётное число без s последних}
 mp: integer; {минимальное значение произведения}
 p: integer;
 i, j: integer;
begin
 readln(N);
 {Ввод первых s чисел}
 for i:=1 to s do readln(a[i]);
 {Ввод остальных значений, поиск минимального произведения}
 ma := amax; me := amax;
 mp :=amax*amax;
 for i := s + 1 to N do begin
  readln(a_);
  if a[1] < ma then ma := a[1];
  if (a[1] mod 2 = 0) and (a[1] < me) then me := a[1];
  if a_ mod 2 = 0 then p := a_ * ma
  else if me < amax then p := a_ * me
  else p := amax* amax;
  if (p < mp) then mp := p;
  {сдвигаем элементы вспомогательного массива влево}
  for j := 1 to s - 1 do
   a[j] := a[j + 1];
  a[s] := a_
 end;
 if mp = amax*amax then mp:=-1;
 writeln(mp)
end.

const s = 6; {требуемое расстояние между показаниями}
   amax = 1001; {больше максимально возможного показания}
var
 N, p, i: integer;
 a: array[1..10000] of integer; {все показания прибора}
 ma: integer; {минимальное число без s последних}
 me: integer; {минимальное чётное число без s последних}
 mp: integer; {минимальное значение произведения}
begin
 readln(N);
 {Ввод всех показаний прибора}
 for i:=1 to N do readln(a[i]);
 ma := amax;
 me := amax;
 mp := amax*amax;
 for i := s + 1 to N do
 begin
  if a[i-s] < ma then ma := a[i-s];
  if (a[i-s] mod 2 = 0) and (a[i-s] < me) then
   me := a[i-s];
  if a[i] mod 2 = 0 then p := a[i] * ma
  else if me < amax then p := a[i] * me
  else p := amax * amax;
  if (p < mp) then mp := p
 end;
 if mp = amax*amax then mp := -1;
 writeln(mp)
end.

const s = 6; {требуемое расстояние между показаниями}
var
 N: integer;
 a: array[1..10000] of integer; {все показания прибора}
 mp: integer; {минимальное значение произведения}
 i, j: integer;
begin
 readln(N);
 {Ввод значений прибора}
 for i:=1 to N do
  readln(a[i]);
 mp := 1000 * 1000 + 1;
 for i := 1 to N-s do begin
  for j := i+s to N do begin
   if (a[i]*a[j] mod 2 = 0) and (a[i]*a[j] < mp)
    then mp := a[i]*a[j]
  end;
 end;
 if mp = 1000 * 1000 + 1 then mp := -1;
 writeln(mp)
end.