Составить блок схему и программу на языке паскаль алгоритма вычесления значений данной функции z=cos(x^3+2t+3sqrt(y))^2+sin(x^3+2t+3sqrt(y))+7e^x

если я правильно понял формулу то решение будет такое.

program zadacha_1; var  z, c, v: real;   i, x, y, t : integer; beginwriteln('введите х: '); read(x); writeln('введите y: '); read(y); writeln('введите t: '); read(t); c: =((x * x * x) + (2 * t) + (3 * sqrt(; z: =cos(c) + sin(c); v: =7*exp(1); for i: =2 to x do v: =v*v; z: =z+v; writeln('результат равен ', z); end.

var a: array [1..12] of real;

var ai, sum: real;

var i, count: integer;

begin

    for i: = 1 to 12 do begin

        read(ai);

        a[i]: = ai;

    end;

    sum: = 0;

    count: = 0;

    for i: = to 12 do begin

        if a[i] > 0 then begin

            sum: = sum + a[i];

            count: = count + 1

        end

    end;

    writeln(sum / count)

end.

#include < iostream> #include < cmath> using namespace std; int main() {       float x, y, z;       cin > > x > > y;       if (x < = 0) {             z = pow(3 * pow(x, 5) + y * y, (float) 1 / 7);       } else if (x > 0 & & abs(y) > = x) {             z = atan(x * y);       } else {             z = log(5 * x - abs(y)) / log(4);       }       cout < < z;       return 0; }