Построить блок-схему 1) y(x)=x-2+cos(x²), при x=2,09
2)y=1/x-4 - √x-z, x={a+√b , a≤b; {1/a+b, a>b.

Program samost; const   n = 5;   m = 5; type   tmatr = array[1..n, 1..m] of integer; procedure printmatrix(g: tmatr); var   i, j: integer; begin   for i : = 1 to n do   begin       for j : = 1 to n do write(g[i, j]: 4);       writeln   end end; procedure makematrix(var a: tmatr); var   i, j: integer; begin   randomize;   for i : = 1 to n do       for j : = 1 to n do a[i, j] : = random(10) - 5; end; var   a: tmatr;   i, j, k: integer; begin   makematrix(a);   writeln('matrica a: ');   printmatrix(a);   k : = 0;   for i : = 1 to n do       for j : = 2 to m-1 do           if (a[i, j] < a[i, j+1]) and (a[i, j] > a[i, j-1]) then inc(k);   writeln('kolichestvo elementov = ', k); end. тестовое решение: matrica a:     4    4    0  -2  -3     1  -4    4  -5    0     2    4  -2    1  -2   -4  -5  -4  -2    4     1    0    0  -3    2 kolichestvo elementov = 2