Написать программу в паскале z=1-e^2a*sin^3(2a)/кореньcos(a) как считаю я: program example1; var a, z: real; begin writeln('введите число a'); readln(a); z: =1-exp(2*a)*sin(2*a*3)/sqrt(cos(a)); writeln('вычислить=', z); end. но программа выдает ошибку, не пойму в чём дело, подскажите .

program example1; var a,z: real; beginwriteln('введите число a'); readln(a); z: =1-exp(ln(e)*2*a)*exp(ln(sin(2*a))*3)/sqrt(cos(a)); writeln('z= ',z); end.

массив определи как array[];

чтобы посчитать, просто используй счетчик, но сначала инициализируй переменную, которая содержит ответ :

int n;

array [n];

int answer;

for (i=0, i < n, i++)

{

      if (array[i] == 2)

          answer++;

} 

std: : cout< < answer;

как то так

 

 

 

array[n];

 

 

for (int i =1, i < n, i++)

{

  if (array[0] > = array[i])

    array[0] = array[i];

}

std: : cout < < array[0];

//это было решение первого пункта

int first;

int last

bool positive;

while (positive == false )

{

    for (int i = 0; i < n; i++)

      {

        if (array[i] > 0)

        {

          positive = true;

          first = i;

          array[i] = -1;

      }

}

while (positive == false )

{

    for (int i = 0, i < n, i++)

      {

        if (array[i] > 0)

        {

          positive = true;

          last = i;

      }

}

 

 

int summ

for (int i = first, i < last, i++)

{

  summ += array[i];

}

  std: : cout< < summ; // ответ на 2 пункт

// преобразую

newarray [n];

int a = 0;

for (int i = 0, i < n, i++)

{      

  if (array[i] == 0)  

    {      

newarray[a] = array[i];      

  a++;      

    }  

} 

for (int i = 0, i < n, i++)

{    

      if (array[i] ! = 0)    

          {        

          newarray[a] = array[i];

          a++;

        }

}

std: : cout< < newarray;

program maslovaalisa; const n=7; var last: array[1..n] of integer; var new: array[1..n] of integer; i: integer; begin  writeln('********************************');   for i: =1 to n do  begin      writeln('введите температуру за ',i,'-й день недели: ');       write('  - в прошлом году  '); readln(last[i]);       write('  - в этом году  '); readln(new[i]);     end;   writeln('*** alphaues is ***');   writeln();   for i: =1 to n do  begin      if last[i] > new[i] thenwriteln('в ',i,'-й день недели в прошлом году было теплее, чем в этом. бр-р-')      else          if last[i] < new[i] thenwriteln('в ',i,'-й день недели в прошлом году было холоднее, чем в этом. уф-ф-')              elsewriteln('удивительно! в ',i,'-й день недели в прошлом году была такая же температура, как в этом! ');   writeln('********************************');   end; end.