Кдостоинствам компьютерного общения можно отнести

 

1)снижение стоимости телефонных разговоров

2)быстрота, не надо ходить куда нибудь 

3) удобно если не хочешь видеть этого человека, если он тебе неприятен

4) можно сразу с несколькими собеседниками общаться

5) анонимность( но это не всегда плюс)

Оформил через рекурсивную подпрограмму #include < bits/stdc++.h> using namespace std; int factor(int n) {       if (n == 1)               return 1;       return factor(n-1)*n; } int main() {       int n;       cin > > n;       cout < < factor(n); } аналог: #include < bits/stdc++.h> using namespace std; int main() {       int n;       cin > > n;       int ans = 1;       for (int i = 1; i < = n; ++i)               ans *= i;       cout < < ans; }

По  моему вот так. uses crt; const n= 10;   {n - количество чисел в последовательности} var i,p, m: integer; a: array[1..n] of integer; begin   p: =1; write('введите число m='); readln(m); writeln('введите исходный массив'); for i: =1 to n do   {начало цикла по кол эл   }     begin      write('a[',i,']='); readln(a[i]);   {ввод эл массива}      if a[i]> m then p: =p*a[i];   end; if m=1 then writeln(' элементов   > m   нет')                        else   writeln('p=',p);   {печать произведения} readln end.