Заполнить двумерный массив 6х6 следующим образом pascal

1) Некорректная работа программного обеспечения из-за инфицирования компьютерным вирусом

Б) Использование только лицензионного программного обеспечения.

В) Использование антивирусных программ.

2) Несанкционированный доступ извне

Г) Ограничение круга лиц, имеющих доступ к серверам и главным компьютерам.

З) Своевременное обновление антивирусных баз.

3) Технические сбои оборудования

Е) Предотвращение нарушений работы кабельной системы.

Д) Создание резервных дисков копий информации.

4) Некорректная работа пользователей и обслуживающего персонала

А) Разграничение полномочий.

Ж) Постоянное повышение квалификации в области работы с информацией.

#include <iostream>

#include <vector>

using namespace std;

int main()

{

  int x, y;

  cin >> x >> y;

  vector<vector<int> > t(x, vector<int> (y));

  for (int i = 0; i < x; ++i){

      for (int j = 0; j < y; ++j){

           int mark;

           cin >> mark;

           t[i][j] = mark;

      }

  }

  for (int i = 1; i < y; ++i){

       t[0][i] += t[0][i - 1];

  }

  for (int i = 1; i < x; ++i){

       t[i][0] += t[i - 1][0];

  }

  for (int i = 1; i < x; ++i){

      for (int j = 1; j < y; ++j){

           t[i][j] += min(t[i - 1][j], t[i][j - 1]);

      }

  }

  cout << t[x - 1][y - 1] << endl;

}

Объяснение: