па информатике разобрать пример 17 письменно

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
function Avg(a:array[,] of integer):real;
begin
  var s:=0; var k:=0;
  foreach var e:integer in a do
    if e>0 then begin s+=e; Inc(k) end;
  if k>0 then Result:=s/k else Result:=1e-100;
end;

begin
  var A:=MatrixRandom(4,4,-50,50); Writeln(A);
  Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
  var B:=MatrixRandom(5,5,-30,30); Writeln(B);
  Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
  var C:=MatrixRandom(4,5,-25,38); Writeln(C);
  Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.

Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200

// №1 а)

 

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Pow(a, x:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to x do

    rez := rez * a;

  Pow := rez;

end;

 

var

  n, i:integer;

  R:real;

begin

  r := 0;

  write('n = '); readln(n);

  for i := 1 to n do

  begin

    r := r + Pow(-1, i mod 2) * (i + 1) / Fact(i);

  end;

  writeln('R = ', r);

end.

 

 

 

// №1 б)

 

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Summ(n:integer):real;

var

  i:integer;

  rez:real;

begin

  rez := 1;

  for i := 2 to n do

    rez := rez + 1/i;

  Summ := rez;

end;

 

var

  n, i:integer;

  R:real;

begin

  r := 0;

  write('n = '); readln(n);

  for i := 1 to n do

  begin

    r := r + Fact(i)/Summ(i);

  end;

  writeln('R = ', r);

end.

 

 

 

// №2 а)

 

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Pow(a:real; x:integer):real;

var

  i:integer;

  rez:real;

begin

  rez := 1;

  for i := 1 to x do

    rez := rez * a;

  Pow := rez;

end;

 

var

  n, i:integer;

  R, x:real;

begin

  r := 0;

  write('n = '); readln(n);

  write('x = '); readln(x);

  for i := 1 to n do

  begin

    r := r + Pow(x, i) / Fact(i);

  end;

  writeln('R = ', r);

end.

 

 

 

// №2 б)

function Pow(a:real; x:integer):real;

var

  i:integer;

  rez:real;

begin

  rez := 1;

  for i := 1 to x do

    rez := rez * a;

  Pow := rez;

end;

 

var

  n, i:integer;

  R, x:real;

begin

  r := 1;

  write('n = '); readln(n);

  write('x = '); readln(x);

  for i := 1 to n do

  begin

    r := r * (i / (i + 1) - Pow(cos(x), i)) ;

  end;

  writeln('R = ', r);

end.