Заполните матрицу, содержащую n строк и m столбцов. 1 6 7 12 2 5 8 11 3 4 9 10 заполнять по системе "змейкой" от 1 до n*m

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

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  var a:=new integer[n,m];
  for var j:=0 to m-1 do
    if j.IsEven then a.SetCol(j,Range(n*j+1,n*(j+1)).ToArray)
    else a.SetCol(j,Range(n*(j+1),n*j+1,-1).ToArray);
  a.Println(4)
end.

Пример
Количество строк и столбцов в матрице: 3 4
   1   6   7  12
   2   5   8  11
   3   4   9  10

1)
#include <stdio.h>
#include <stdlib.h>

int sover (int n)
{
  int sum = 0;
  for (int i = 1; i<=n/2; i++)
    if (n%i==0) sum+=i;
  if (sum==n)
    return 1;
  else return 0;
}
int main()
{
  int n;
  printf ("N = ");
  scanf ("%d",&n);
  if (sover(n)==1)
    printf ("Sovershennoe");
  else printf ("Ne sovershennoe");
  printf("\n");
  system ("PAUSE");
  return 0;
}

2)
#include <stdio.h>
#include <stdlib.h>

int main()
{
  for (int i = 1; i<=5; i++)
  {
    for (int j = 1; j<=5-i+1; j++)
      printf ("%d ",5+i-1);
    printf ("\n");
  }
  system ("PAUSE");
  return 0;
}

код на C++:

#include <iostream>

using namespace std;

int main()

{

   const short R = 3;

   const short C = 3;

   long long int A[R][C];

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

   {

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

       {

           cin >> A[i][j];

       };

   };

   

   short result = 0;

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

   {

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

       {

           if (A[i][j] == 0)

           {

               result++;

           };

       };

   

   };

   cout << result << endl;

   return 0;

}

Объяснение:

Я не понял, что значит A(3,3), но я посчитаю это двумерным массивом 3 на 3. Делаем вложенный цикл и там сравниваем массив с индексами i и j с 0, и если да, то увеличиваем result на 1, а если нет, то ничего