Олимпиадный тренинг

Задача . Прописи#42847


Задача

Темы:

Дан текст решения

PascalABC Ожидаемый ответ
var
n,k,sum,i,min,m:int64;
begin
read(n);
read(k);
sum:=0;
for i:=1 to n-1 do begin
    min:=0;
    read(m);
    if k<m then
        min:=k
    else 
        min:=m;
    sum:=sum+min;
    k:=m;
    end;
write(sum);
end.
 


Напишите аналогичный код на C++
 


time 500 ms
memory 256 Mb
Правила оформления программ и список ошибок при автоматической проверке задач

Статистика успешных решений по компиляторам
Комментарий учителя