Информатика 7 класс (босова)
параграф 1.6 краткий пересказ
( )

#include <iostream>
using namespace std;
int main()
{
 int n,max, min, pos1, pos2, mem, sum;
cin >> n;
pos1 = 0;
pos2 = 0;
int *A = new int[n];
for (int i = 0; i < n; i++)
{
 cin >> A[i];
}
min = A[0];
max = A[0];
for (int i = 0; i < n; i++)
 {
 if (A[i] > max)
 {
  max = A[i];
  pos1 = i;
 }
 if (A[i] < min)
 {
  min = A[i];
  pos2 = i;
 }
}
if (pos2 > pos1)
{
 mem = pos2;
 pos2 = pos1;
 pos1 = mem;
}
sum = 0;
for (pos2; pos2 <= pos1; pos2++)
{
 sum = sum + A[pos2];
}
cout << sum;
system("pause");
return 0;
}

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)->i<=n-j-1?i+1:0);
  a.Println(3)
end.

Пример
n= 13
  1  1  1  1  1  1  1  1  1  1  1  1  1
  2  2  2  2  2  2  2  2  2  2  2  2  0
  3  3  3  3  3  3  3  3  3  3  3  0  0
  4  4  4  4  4  4  4  4  4  4  0  0  0
  5  5  5  5  5  5  5  5  5  0  0  0  0
  6  6  6  6  6  6  6  6  0  0  0  0  0
  7  7  7  7  7  7  7  0  0  0  0  0  0
  8  8  8  8  8  8  0  0  0  0  0  0  0
  9  9  9  9  9  0  0  0  0  0  0  0  0
 10 10 10 10  0  0  0  0  0  0  0  0  0
 11 11 11  0  0  0  0  0  0  0  0  0  0
 12 12  0  0  0  0  0  0  0  0  0  0  0
 13  0  0  0  0  0  0  0  0  0  0  0  0

P.S. Ненавижу того, кто поставил тут этот шрифт - все съезжает!