Дан массив c[n] заполненный по формуле, определить произведение его нечентых элементов и вывести ее на экран y=sin(2x)+3

program raf105;

const  

  n = 10;

var  

  c: array[1..n] of real;

  i: integer;

  x,pro: real;

begin

write('x = ');

readln(x);

pro: =1;

for i: =1 to n do

begin

  c[i]: = sin(2*x)+3;

  if (i mod 2)< > 0

    then pro*= c[i];

end;

writeln('произведение нечётных элементов: ',pro);

end.

//pascal abc.net версия 2.2 сборка 790 var ma: array[1..10,1..10] of integer; ar: array[1..10] of integer; i,j,s: integer; begin; randomize; writeln('matrix: '); for i: =1 to 10 do begin;     writeln;     for j: =1 to 10 do     begin;         ma[i,j]: =random(-10,10);         write(ma[i,j]: 5);             if ma[i,j]< 0 then ar[i]+=ma[i,j];     end; end; writeln; writeln('final array: '); for i: =1 to 10 do writeln(ar[i]); end. пример вывода: matrix:     9   -1   3 -10   6   3   -9   8   5   -6  -4   4   -6   7   7   7 -10   4   -2   3  -9   -3   10   -9   2   -7   1   -8   -8   -8  -5   -4   2   -5   -9   -9   3   6   7   -5    3   8   10   0   -9   4   -3   6 -10   -9    9   10   -8   1   -1   2   -1   1   -2   3  -8   10   5   3   10 -10   -8   9   6   6  -6   -5   8   -7 -10   -7   -2   -1 -10   9    7   5   -9 -10   -6   -5   -7   -9   7   -1    2   -9   -2   -6   -8   4   -7   -3   1   -9 final array: -26 -22 -52 -37 -31 -12 -26 -48 -47 -44

Procedure tform1.button1click(sender: tobject); var   x1,y1,x2,y2,yf1,yf2 : integer;   k,b : integer; begin   x1 : = 4; y1 : = -5;   x1 : = 0; y1 : = 5;   k : = 2; b: = 2;   yf1 : = k*x1 + b;   yf2 : = k*x2 + b;   if (y1> yf1) then     y1: =1   else     y1: =-1;   if (y2> yf2) then     y2: =1   else     y2: =-1;   if (y1< > y2) then     label1.caption : = 'верно'   else     label1.caption : = 'неверно'; end;