Надо построить блок схему для уравнения: y= sqrt(x^2+a^2) при a=0,01 и блок схему дял уравнения: z=arctg(x^3-a) при x=0,12

Выведется 8 1) mas[1] = 12 | 12 < 0 - неверно & 12 < 10 - неверно 2) mas[2] = -5 | -5 < 0 | i = 2 | 2 mod 2 = 0 - верно --> k=1 3) mas[3] = -14 | -14 < 0 | i = 3 | 3 mod 2 = 0 - неверно & -14 < 10 - верно --> m=1 4) mas[4] = 16 | 16 < 0 - неверно & 16 < 10 - неверно 5) mas[5] = -10 | -10 < 0 | i = 5 | 5 mod 2 = 0 - неверно & -10 < 10 - верно --> m=2 6) mas[6] = -6 | -6 < 0 | i = 6 | 6 mod 2 = 0 - верно --> k=2 7) mas[7] = 8 | 8 < 0 - неверно & 8 < 10 - верно --> m=3 8) mas[8] = -10 | -10 < 0 | i = 8 | 8 mod 2 = 0 - верно --> k=3 9) mas[9] = -15 | -15 < 0 | i = 9 | 9 mod 2 = 0 - неверно & -15 < 10 - верно --> m=4 10) mas[10] = -8 | -8 < 0 | i = 10 | 10 mod 2 = 0 - верно --> k=4 k+m = 4 + 4 = 8

Var a: array[1..10] of integer;     b: array[1..10] of real;     i,n: integer;     s: real; begin   s: =0; n: =0;   write('массив a:   ');   for i: =1 to 10 do   begin     read(a[i]);     if a[i]< 0 then      begin       s: =s+a[i];       n: =n+1;     end;       write(a[i],' ');   end;   s: =s/n;     writeln;   writeln('среднее арифметическое отрицательных: ',s);   writeln('количество отрицательных: ',n);   write('массив b:   ');   for i: =1 to 10 do   begin     if a[i]< 0 then b[i]: =s     else b[i]: =a[i];     write(b[i]: 7: 3);   end; end.массив a:   2 2 -3 1 -5 -6 -5 9 -7 5  среднее арифметическое отрицательных: -5.2 количество отрицательных: 5 массив b:     2.000   2.000 -5.200   1.000 -5.200 -5.200 -5.200   9.000 -5.200   5.000