Составить программу в паскале z1= 1/4 - 1/4*sin(5/2pi-8a) z2= (1-sin^2a)/(1+sin2a)

Var z1,z2: real; a: integer; begin   read(a);   z1: =1/4-1/4*sin(5/2*pi-(8*a));   z2: =(1-sqr(sin(a))/(1+sqr(sin(a)); writeln('z1 = ',z1); writeln('z2 = ',z2); end.

#include < iostream> #include < ctime> using namespace std; int main() {       setlocale(lc_all, "russian");       int arr[24];       int max = -21;       srand(time(null));       for (int i = 0; i < 24; i++) {             arr[i] = rand() % 41 - 20;             if (arr[i] > max) max = arr[i];             cout < <   " " < < arr[i];       }       cout < < "\n максимальный элемент = " < < max < < endl;       //system("pause");       return 0; }

#include

#include

int main()

{

int n;

int cnt = 0;

std: : cin > > n;

int **arr = new int*[n];

for(int i=0; i

{

arr[i] = new int[n];

for(int j=0; j

{

std: : cin > > arr[i][j];

//arr[i][j] = ++cnt;

}

}

cnt = 0;

while(cnt < n)

{

for(int i=0; i< (n-cnt); i++) std: : cout < < std: : setw(2) < < arr[cnt][i] < < " ";

std: : cout < < std: : endl;

cnt++;

}

for(int i=0; i

delete [] arr[i];

delete [] arr;

arr = nullptr;

system("pause");

return 0;

}