Yevgenevich1150
?>

Какое расширение у исполняемых файлов?

Информатика

Ответы

Novikova
Exe. com. bat. Ля ля
fancy-decor67
#include <iostream>

using namespace std;

long Factorial(int num)
{
  long res = 1;
 
  for (int i = num; i > 1; i--)
    res *= i;
  return res;
}

int NumOfElements(int **matrix, int mSize, int nSize)
{
  int res = 0;

  for (int i = 0; i < mSize; i++)
  {
    for (int j = 0; j < nSize; j++)
      if (matrix[i][j] % 2 == 0 && matrix[i][j] < 0)
        res++;
  }
  return res;
}

int main()
{
  int
    num,
    **matrix,
    mSize,
    nSize;

  cout << "Input a number: ";
  cin >> num;

  cout << num << "! = " << Factorial(num) << endl;

  cout << "Input a matrix size: ";
  cin >> mSize >> nSize;

  matrix = new int*[mSize];
  for (int i = 0; i < mSize; i++)
    matrix[i] = new int[nSize];
  for (int i = 0; i < mSize; i++)
    for (int j = 0; j < nSize; j++)
      cin >> matrix[i][j];

  cout << "Num. of the elements = " << NumOfElements(matrix, mSize, nSize) << endl;
 
  system("pause");
  return 0;
} /* End of the 'main' function */
Columbia777
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Rows.Select(x->x.Where(y->(y<0) and y.IsOdd).Count);
  b.Println;
end.

Пример
Количество строк в массиве: 10
Количество столбцов в массиве: 13
*** Исходный массив [10,13] ***
  -7 -30 -31  26 -19   4 -26 -37 -17   2  -7 -20  20
  -6  33 -24 -14 -26  38 -11 -34 -40 -22  31   7  35
 -24  -9 -35  -7 -14  -3  25  38 -30 -50  42  26 -15
  45 -17   6 -18  27  25 -21 -21   1 -39  36 -27 -49
  32 -38  -9 -17  42 -11 -31  -4 -23  33  48  40 -34
  47   6  32 -26  33 -15  10  40  43 -44  11  28   1
 -45 -23   6  26 -20 -20 -30 -15  16  12  -3  38 -42
   3   6  39  17   0   8  -7  11  29  23  -2 -23 -21
   1  13 -39  39 -44  30   5  -9 -17  43  41   2   2
  17  19  32 -20  45 -16 -13  24  32 -46 -49 -25   6

6 1 5 6 5 1 4 3 3 3

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Какое расширение у исполняемых файлов?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Bolshakova Shigorina
Dmitriy793
ilyatamurov
rkorneev19061
avdoyan6621
Avdimov5
soclive7762
Алексей Шуклин
D.Yu. Polina1703
kmr495270
rusplatok
kristina1989
avolodyaev
vasinam
Abdullaev