Написать программу на C#, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры.

//Pascal

//1)
var
  A: array [1..30] of integer;
  i: byte; mult: double;
begin
mult := 1;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 30 do
begin
  A[i] := random(46)-15;
  if A[i] > 0 then mult := mult * A[i];
  write(A[i], ' ');
end;
writeln;
writeln('Произведение положительных элементов = ', mult);
end.
//

//2)
var
  A: array [1..40] of integer;
  i: byte; count: byte;
begin
count := 0;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 40 do
begin
  A[i] := random(31)-20;
  if A[i] mod 3 = 0 then count := count + 1;
  write(A[i], ' ');
end;
writeln;
writeln('Количество элементов кратных трем = ', count);
end.
//

//3)
var
  A: array [1..40] of integer;
  i: byte; count: byte; sum: integer;
begin
count := 0; sum := 0;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 40 do
begin
  A[i] := random(61)-30;
  if A[i] < 0 then
  begin
    count := count + 1;
    sum := sum + A[i];
  end;
  write(A[i], ' ');
end;
writeln;
writeln('Среднее арифметическое отрицательных эл. =',(sum/count):4:4);
end.
//

10. 11.
#include <stdlib.h>
#include <iostream>
#include <iomanip>
using namespace std;

int main() {
const int n = 5;
int a[n][n];
int s1=0, s2=0;

srand(time(0));
for (int i = 0; i < n; i++){
 for (int j = 0; j < n; j++){
a[i][j]=10+(51.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << a[i][j];
 }
cout <<endl;
}

for (int i = 0; i < n; i++) {
 s1 += a[i][i]; s2 += a[i][n-i-1];
 }
 cout << "s1 = " << s1 << "  s2 = " << s2 << endl;
}

Пример:
37 47 11 12 34
13 55 15 18 38
57 12 24 52 17
31 36 21 57 43
30 56 47 26 33
s1 = 206 s2 = 142

1.
#include <iostream>
using namespace std;

long int Fact(int n)
{
       if (n==0) return 1;
       else return Fact(n-1)*n;
}

int main()
{
    int n;
    cout << "n = ";
    cin >> n;
    cout << n << "! = " << Fact(n) << "\n";
    system("Pause");
    return 0;
}

Пример:
n = 5
5! = 120