Объясните как получить ответ (он 1 Не найти ответ, а объяснить ход решения!

5,13,9,3,-1,-2

Объяснение:

На фото изображена программа на python которая решает эту задачу.

Алгоритм:

1) Создать массив

2) Создать цикл повторяющий действия 5 раз

3)В цикле: A[i] = (содержимое A[i]) +

(содержимое А[i+1])

То есть в начале i=1, и А[1]= А[1] + А[1+1]

(А[1] меняется на: (-1+6(5))

И так далее

Если надо могу написать дальше

Очень надеюсь что

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

#include "stdafx.h"

#include <iostream>

using namespace std;

int main()

{

int d, m, y, i;

int max[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };

setlocale(0, "");

cout << "Введите день(число)";

cin >> d;

cout << "Введите месяц(число)";

cin >> m;

cout << "Введите год(число)";

cin >> y;

if ( (y % 4 == 0 && y % 100 != 0) || y % 400 == 0) //Проверка что год високосный

max[1]++;

if( d == max[m-1])

{

d = 1;

m++;

}

else

    d++;

if (m == 13)

{

m = 1;

y++;

}

cout << d << " " << m << " " << y;

cin >> d;//Ожидание ввода, чтобы посмотреть результаты пработы программы

return 0;

}

Эта программа определяет следующий день от текущего.

А вот программа, которая определяет предыдущий день.

#include "stdafx.h"

#include <iostream>

using namespace std;

int main()

{

int d, m, y, i;

int max[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };

setlocale(0, "");

cout << "Введите день(число)";

cin >> d;

cout << "Введите месяц(число)";

cin >> m;

cout << "Введите год(число)";

cin >> y;

if ( (y % 4 == 0 && y % 100 != 0) || y % 400 == 0) //Проверка что год високосный

max[1]++;

if( d == 1)

{

if (m == 1)

{

m = 12;

y--;

}

else

m--;

d = max[m - 1];

}

else

    d--;

cout << d << " " << m << " " << y;

cin >> d;//Ожидание ввода, чтобы посмотреть результаты пработы программы

return 0;

}

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=readInteger('Элементов в массиве:');
  var a:=ArrGen(n,i->3-i*2+i,1);
  a.Println; Writeln; a.PrintLines;
  Writeln('Некратных семи: ',a.Where(t->t mod 7 <> 0).Count);
  Writeln('Отрицательных: ',a.Where(t->t<0).Count);  
  a:=a[:2]+a[3:5]+Arr(99)+a[5:]; a.Println;
end.

Пример
Элементов в массиве: 7
2 1 0 -1 -2 -3 -4

2
1
0
-1
-2
-3
-4
Некратных семи: 6
Отрицательных: 4
2 1 -1 -2 99 -3 -4