• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Помогите перевести с Pascal на C++

23.03.2020
3
0
const d = 4;
var
N: integer;
a: array[1..10000] of integer; {хранение всех
элементов последовательности}
mn:integer; {минимальное введенное число}
{не считая d последних}
m:integer; {минимальное значение суммы}
i: integer;
begin
readln(N);{Ввод всех элементов последовательности}
for i:=1 to N do readln(a);
mn := 1001;
m := 2001;
for i := d + 1 to N do
begin
if a[i-d] < mn then mn := a[i-d];
if a + mn < m then m := a + mn
end;
writeln(m)
end.
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab