нужно 3 задание ❗❗❗❗❗❗❗

#include <iostream>
int main(){
 int arr[3][7]; /*for (int* i = *arr; (i - *arr) < 21; i++) *i = i-*arr;*/
 const int VALUE = 11;
 //
 int max; int count = 0;
 for (int x = 0; x < 7; x++) {
  max = arr[0][x];
  for (int y = 0; y < 3; y++) {
   if (max < arr[y][x]) max = arr[y][x];
  }
  if (max < VALUE) {
   std::cout << "Наибольший элемент столбца " << x + 1 << " меньше заданной величины." << std::endl;
   count++;
  }
 }
 std::cout << count << " столбцов не соответсвуют условию." << std::endl;
 return 0;
}

Sub m1()
    Cells.Clear
    Dim n As Integer, i As Integer, s As Integer
    n = InputBox("n = ")
    Cells(1, 1).Value = "n = " + Str(n)
    ReDim a(1 To n)
    For i = 1 To n
        a(i) = InputBox("a(" + Str(i) + ")")
    Next i
    Cells(2, 1).Value = "Исходный массив"
    Range(Cells(3, 1), Cells(3, n)).Value = a
    s = 0
    For i = 1 To n
        s = s + a(i)
    Next i
    Cells(4, 1).Value = "s = " + Str(s)
    Cells(5, 1).Value = "Полученный массив"
    For i = 1 To n
        a(i) = a(i) + s
    Next i
    Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub