Решить проказница мартышка , осёл , козёл и косолапый мишка затеяли сыграть в сколькими различными способами могут попытаться сесть в ряд эти музыканты? ? решение !

P4=n! это число перестановок в комбинаторике. ответ 24

ответ:

#include

#include

using namespace std;

int main()

{

  int n, i;

  double z, s;

  double* a = null;

  setlocale(lc_all, "russian");

  cout < < "\nвведите размерность массива: ";

  cin > > n;

  a = new double [n];

  srand(time(null));

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

    a [i] = (double)rand() / (rand_max + 1) * 5;

    cout < < a[i] < < " ";

  }

  cout < < "\nвведите число для поиска: ";

  cin > > z;

  s = 0;

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

    if (abs (a[i] - z) < 0.1)   // поиск z в массиве, 0.1: сравнение чисел с точность до 1 знака после запятой

      s += a[i];

  }

  cout < < "\nсумма = " < < s < < "\n";

}

На 1 пункт: program mueta; uses crt; const n=(любому числу, например 3); var k: array[1..n]of integer; s: array[1..n]of integer; begin clrscr; for i: =1 to n do begin writeln('введите эл-ты массива s[i]='); readln(s[i]); end; for i: =1 to n do begin if s[i]> 0 then  writeln('s[i] положительное число', s[i]); end. 2)на второй тоже самое только нужно заменить массив на(k)  условие нужно поменять на s[i]mod 2=0