Составить программу для вычисления выражения: а) при x = 2.36, c = 18.7, d = 6.46 б) если знаменатель равен нулю, на экран нужно выдавать сообщение об ошибке. p.s. там где двоеточия - дробь, там где восклицательные знаки - модуль, и в выражений б) sin(п: 7), и в sin(2п: 7)

program kyt333; uses crt; const  c=18.7;   d=6.46; var  x,y,a: real; begin  write('введите х: '); readln(x);   writeln();   if (abs(x)+d = 0) or (cos(x)=0) then writeln('знаменатель равен нулю! ')  else            begin          y: =(c+d-sin(x)/cos(x))/(abs(x)+d);           a: =5.23+7.6*7.6+sin(pi/7)/sin(2*pi/7)+3.1;       end;   writeln('результаты: ');   writeln('y=',y: 8: 2); writeln('a=',a: 8: 2); end.

  program sumandmul;

uses crt;

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

        i: integer;    

 

        sum,mul: longint;

begin

      clrscr;

      for i: =1 to 10 do

            begin

                  write('введите -', i,' число: '  );

                  readln(a[i]);

              end;

 

 

sum: =0; mul: =1;

for i: =1 to 10 do

            begin

                if (a[i]> 0) then sum: =sum+a[i];

                if (a[i]< 0  )  then mul: =mul*a[i];

              end;    

  writeln('сумма положительных элементов: ',sum);

  writeln('произведение отрицательных элементов: ',mul);  

    readkey;

 

end.

 

 

 

в данной программе предполагается что массив целочисленный 

program massiv;

uses crt;

var a: array[1..10] of integer;

        temp,max,i: integer;

begin

    clrscr;  

 

    for i: =1 to 10 do

          begin

              write('введите   ',i, 'элемент массива: ' );

              readln(a[i]);  

          end;

    writeln;

 

     

 

  write('исходный массив: ');

max: =a[1];  

 

  for i: =1 to 10 do

      begin

          write(a[i])

          write('   ');

        if (a[i]> max) tnen max: =a[i];    

      end;  

 

  temp: =a[6];

  a[6]: =a[9];

a[9]: =temp;

 

 

 

  writeln;

  write('массив после обмена: ');  

for i: =1 to 10 do

      begin

          write(a[i])

          write('   ');  

      end;

writeln;  

writeln('максимальный элемент массива: ',max);

      readkey;

 

  end.