Синформатикой по теме паскаль одномерные массивы 1.определите элементы одномерного вещественного массива х. напишите программу, позволяющую найти максимальное значение среди элементов массива, имеющих четные индексы.max (х2, х4, х6,

Const   nn=10; var   i,j,n: integer; begin   write('введите число строк в массиве (2..9): ');   read(n);   if (n< 2) or (n> 9) then writeln('неверное значение')   else       for i: =1 to n do       begin           if (i mod 2)< > 0 then for j: =1 to n do write(j)           else for j: =n downto 1 do write(j);           writeln       end end. тестовое решение: введите число строк в массиве (2..9): 5 12345 54321 12345 54321 12345

Pascalabc.net с максимумом "фишек": function f(x: double): double; begin   result: =(3*x+2*x+5)/(cos(x)-sin(x))+power(x,3)   { cкорее всего, в условии ошибка и должно быть не 3х, а 3x^2,       тогда надо числитель писать как (3*sqr(x)+2*x+5) } end; var   x: double; begin   foreach x in [0.1,0,1.5] do       writeln('x=',x: 3: 1,'  y=',f(x): 0: 5) end. результат выполнения программы: x=1.5  y=-10.11288 x=0.1  y=6.14508 x=0.0  y=5.00000 обратите внимание, что порядок следования х не такой, как указан в программе: элементы множества считаются и компилятор вправе располагать их произвольно. более традиционное решение function f(x: double): double; begin   result: =(3*x+2*x+5)/(cos(x)-sin(x))+power(x,3)   { cкорее всего, в условии ошибка и должно быть не 3х, а 3x^2,       тогда надо числитель писать как (3*sqr(x)+2*x+5) } end; const   a: array[1..3] of double=(0.1,0,1.5); var   i: integer; begin   for i: =1 to 3 do       writeln('x=',a[i]: 3: 1,'  y=',f(a[i]): 0: 5) end. результат выполнения программы: x=0.1  y=6.14508 x=0.0  y=5.00000 x=1.5  y=-10.11288