Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program task27B;
- var n, i, id, min_val, opt_sum, el, sum: integer;
- a: array [1..4] of integer;
- begin
- read(n);
- for i:=1 to 4 do begin
- read(el);
- a[i] := el; // Считываем первые 4 элемента и записываем их в константный массив
- end;
- for i:=5 to N do begin
- read(el);
- if i mod 4 = 0 then
- id := 4 // Для корректного обращения к элементам массива, т.к. в PascalABC нумерация элементов массива начинается с 1
- else
- id := i mod 4;
- if (a[id] < min_val) then
- min_val :=a[id]; // Пересчитываем значение минимального допустимого первого элемента в пару к элементу с номером i
- sum := el + min_val; // Вычисляем значение текущей суммы элемента с номером i и минимального допустимого для него
- if (sum < opt_sum) then
- opt_sum := sum; // Если значение текущей суммы оказалось меньше, то соответственно обновляем значение оптимальной суммы
- a[id] := el; // Циклически записываем в массив значение рассмотренного элемента
- end;
- writeln(opt_sum); // Выводим оптимальное значение суммы
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement