М. С. Цветкова, Л. С. веЛикович Информатика и ИКТ
Можете составить конспект по параграфу 1.2. Роль информационной деятельности
в современном обществе

Var a: array of integer; // Объявление массива целых чисел
  i, n: integer; // объявление целочисленных переменных
begin
  // Запросим с клавиатуры размер массива
  // и запишем его в переменную n
  write('введите n:'); 
  readln(n);
  
  // Теперь выделим память под n элементов массива
  SetLength(a, n);
  
  // теперь запросим с клавиатуры n чисел для массива
  for i := 0 to n-1 do begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  
  // теперь в цикле уменьшим каждый элемент на единицу
  for i := 0 to n-1 do 
    a[i] := a[i] - 1;
  
  // распечатаем массив
  for i := 0 to n-1 do 
    write(a[i], ' ');
end.

Решение:

#include <stdio.h>

#include <math.h>

#include <locale.h>

int main()

{

setlocale(LC_ALL, "rus");

int i, god, obl1, obl2, z, itog;

obl1 = 100000;

obl2 = 200000;

printf("Введите сколько лет происходит модернизация:\n");

scanf_s("%i", &god);

for (i = 1; i < god; i++)

{

 if (obl2 > obl1)

 {

  z = obl1 + obl2;

  obl1 = z;

 }

 else

 {

  z = obl1 + obl2;

  obl2 = z;

 }

 itog = obl1 + obl2;

}

if (obl2 > obl1)

{

 printf("Наибольший доход у второй области: %2d сентиннеалей\n", obl2);

}

else

{

 printf("Наибольший доход у первой области: %2d сентиннеалей\n", obl1);

}

printf("Общий доход за %2d лет : %2d сентиннеалей\n", god, itog);

getchar(); getchar();

}

Прикрепил пару тестов и саму программу, если интересно