Advertisement
Guest User

Untitled

a guest
Apr 7th, 2020
144
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.46 KB | None | 0 0
  1. program task27B;
  2.  
  3. var n, i, id, min_val, opt_sum, el, sum: integer;
  4. a: array [1..4] of integer;
  5.  
  6. begin
  7. read(n);
  8. for i:=1 to 4 do begin
  9.     read(el);
  10.     a[i] := el; // Считываем первые 4 элемента и записываем их в константный массив
  11. end;
  12.  
  13. for i:=5 to N do begin
  14.     read(el);
  15.  
  16.     if i mod 4 = 0 then
  17.         id := 4 // Для корректного обращения к элементам массива, т.к. в PascalABC нумерация элементов массива начинается с 1
  18.     else
  19.         id := i mod 4;
  20.  
  21.     if (a[id] < min_val) then
  22.         min_val :=a[id]; // Пересчитываем значение минимального допустимого первого элемента в пару к элементу с номером i
  23.  
  24.     sum := el + min_val; // Вычисляем значение текущей суммы элемента с номером i и минимального допустимого для него
  25.  
  26.     if (sum < opt_sum) then
  27.       opt_sum := sum; // Если значение текущей суммы оказалось меньше, то соответственно обновляем значение оптимальной суммы
  28.    
  29.     a[id] := el; // Циклически записываем в массив значение рассмотренного элемента
  30. end;
  31.  
  32. writeln(opt_sum); // Выводим оптимальное значение суммы
  33. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement