Alsergus7811
?>

Составить программу для вычисления 99!! = 1·3·...·97·99

Информатика

Ответы

Dmitrychekov9
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var n:=ReadInteger('Задайте число строк/столбцов массива:');
  var a:=MatrixRandom(n,n,-99,99);
  Writeln('Исходный массив');
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Write(a[i,j]:4);
    Writeln
    end;
  Write('Кол-во нечетных элементов выше главной диагонали: ');
  var k:=0;
  for var i:=0 to n-2 do
    for var j:=i+1 to n-1 do
      if Odd(a[i,j]) then Inc(k);
  Writeln(k)
end.

Тестовое решение
Задайте число строк/столбцов массива: 6
Исходный массив
  31  27 -90 -64 -75  22
  12  11  79   6 -14  73
 -66 -52 -97 -82 -50  47
 -65  20  25  -7 -13  46
 -31  -9 -69  47  81   2
 -43 -68  95  -3 -36 -55
Кол-во нечетных элементов выше главной диагонали: 6
Alekseevna1064

#include <iostream>

#include <algorithm>

#include <string>

#include <vector>

using namespace std;

int main()

{

    // Номер 1

   vector <string> days;

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

   {

       string temp;

       cin >> temp;

       days.push_back(temp);

   }

   

   

   //Номер 2

   int max1 = -2000000000;

   int max2 = -2000000000;

   vector <int> arr { 15, 48, 0, 144 , 52};

   for(int i = 0 ; i < arr.size() ; ++i)

       max1 = (arr[i] > max1 ? arr[i] : max1);

       

   for(int i = 0 ; i < arr.size() ; ++i)

       max2 = (arr[i] > max2 && arr[i] != max1 ? arr[i] : max2);

   cout << "Максимум 1: " << max1 << " Максимум 2: " << max2;

   

   

   //Номер 3

   vector <int> numbers { 15, 24, 48, -5 , 0 , -10};

   cout << count_if(numbers.begin(), numbers.end(), [] (int a) { return a > 0;});

   

   return 0;

}

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

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

Составить программу для вычисления 99!! = 1·3·...·97·99
Ваше имя (никнейм)*
Email*
Комментарий*

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

maksmi
Дружинин
werda84
Кристина910
sbarichev330
lazu8375
Yurevna991
osechkinandrejj
Alekseeva_Khlistov
Исакова-Александрович511
natkul22
pbttehnology
lider-mpl550
EkaterinaSEMENOV702
osnickyi