зашифруйте фразу "зима близко" шифром цезаря, сдвиг 35 (алфавит 33 символа). в ответе пробел между словами учитывать.​

//PascalABC.NET версия 3.3.5.1636 от 10.03.18
//Если программа не запускается, то обновите версию

const
    n = 9;

var
    a: array[0..n] of integer;
    i, k: integer;

begin
    for i := 0 to n do begin
        a[i] := n - i;
        write(a[i], ',');
        end;
        writeln;
    
    for i := 0 to n do
    begin
        K := A[i];
        A[K] := 0;
    end;
    
    k := 0;
    for i := 0 to n do
    begin
        write(a[i], ',');
        if a[i] = 0 then k := k + 1;
    end;
    writeln;
    writeln('k=',k);
end.

Вывод
9,8,7,6,5,4,3,2,1,0, - изначальный массив
0,8,7,6,5,0,0,0,0,0, - после изменения
k=6 - колво нулей

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   int n, m;

   cin >> n >> m;

   vector<vector<int>> matrix(n, vector<int>(m));

   for (int i = 0; i < n; i++)

   {

       for (int j = 0; j < m; j++)

       {

           cin >> matrix[i][j];

       }

   }

   vector<int> ans;

   for (int i = 0; i < m; i++)

   {

       int pr = 1;

       for (int j = 0; j < n; j++)

       {

           pr *= matrix[j][i];

       }

       ans.push_back(pr);

   }

   for (auto x : ans)

   {

       cout << x << " ";

   }

return 0;

}

Значения элементов матрицы вводятся с клавиатуры. В векторе ans лежит ответ.