1)составить блок схему и программу для вычисления y и z по заданным формулам

Y=2e^4x+arctg(x/a), при a=5.1
Z=cosx^3+sin^2x, при x=3,29

2)Создать новый одномерный массив B из элементов исходной матрицы А(6,8), удовлетворяющие условию 0≤cosa<0,5. В полученном массиве поменять местами максимальные и минимальные

Огромное спасибо.

const  a=5.1;  x=3.29;var  Y,Z:double;begin  Y:=2*exp(4*x)+arctan(x/a);  Z:=cos(x*sqr(x))+sqr(sin(x));  Writeln('Y=',Y,', Z=',Z)end.Результат выполнения программы:Y=1038354.42291114, Z=-0.472433980670957const  m=6;  n=8;var  a:array[1..m,1..n] of double;  b:array[1..m*n] of double;  i,j,k,imax,imin:integer;  t:double;begin  // Инициализация А и формирование В  Randomize;  Writeln('Исходный массив A');  k:=0;  for i:=1 to m do begin    for j:=1 to n do begin      a[i,j]:=10*Random-5; { случайное число на [-5;5] }      Write(a[i,j]:8:4);      t:=cos(a[i,j]);      if (t>=0) and (t<0.5) then begin Inc(k); b[k]:=a[i,j] end    end;    Writeln  end;  // Вывод сформированного массива В  Writeln('Исходный массив В');  for i:=1 to k do Write(b[i]:8:4);  Writeln;  // Поиск максимума и минимума с последующим обменом их местами  imax:=1; imin:=1;  for i:=2 to k do    if b[i]<b[imin] then imin:=i    else      if b[i]>b[imax] then imax:=i;  t:=b[imax]; b[imax]:=b[imin]; b[imin]:=t;  // Вывод результирующего массива В  Writeln('Результирующий массив В');  for i:=1 to k do Write(b[i]:8:4);  Writelnend.Тестовое решение:Исходный массив A -1.6788 -0.7273 -3.4919  2.9903 -4.3249 -2.2230 -2.1157  0.9685  2.0515  4.6821  0.2794 -1.4624  4.9668 -3.5754 -3.4115 -0.5592  3.0535  1.1339  0.0992 -0.5307 -0.6266  2.2623  1.9578 -1.3175 -0.6154  3.6080  2.4223 -4.8354 -2.2978  3.8982 -2.2427  2.0410 -1.1019 -3.4703 -2.0104 -1.3044  0.7744  0.6897  3.1747  1.3257 -4.3942 -1.6707 -3.2494 -0.6551  3.4726 -0.2896  3.4154  1.9644Исходный массив В -1.4624  4.9668  1.1339 -1.3175 -4.8354 -1.1019 -1.3044  1.3257Результирующий массив В -1.4624 -4.8354  1.1339 -1.3175  4.9668 -1.1019 -1.3044  1.3257