Постройте таблицы значений для указанных функций. 2. y=2+3x^3-7/ x, x ∈ [a, b], вводятся значения a, b и количество точек.

1)  program n1;   var n,i: integer;   t: array[1..100] of real;   a,b: real;   begin  readln(n);   readln(a);   readln(b);   for i: =1 to n do  begin  t[i]: =(b-a)/n;   write(t[i],'   ');   end;   end.2)  program n1;   var a: array[1..100] of integer;   n,i: integer;   k: real;   begin  read(n);   k: =0;   for i: =1 to n do  read(a[i]);   for i: =1 to n do  if a[i] mod 2 < > 0 then  k: =k+1;   writeln;   writeln('кол-во нечет. чисел равно ',k,'');   end.6)  program n1;   var a: array[1..100] of real;   i,n: integer;   s,sr: real;   begin  read(n);   for i: =1 to n do  read(a[i]);   s: =0;   sr: =0;   for i: =1 to n do  s: =s+a[i];   sr: =s/n;   writeln('сред. арифметическое равно ',sr,'');   end.7)    program n1;   var a: array[1..100] of real;   i,n: integer;   min,max: real;   begin  read(n);   for i: =1 to n do read(a[i]);   min: =a[1];   for i: =2 to n do  if a[i]< min then  min: =a[i];   max: =a[1];   for i: =2 to n do  if a[i]> max then  max: =a[i];   writeln('максимальный элемент равен ',max,'');   writeln('минимальный элемент равен ',min,'');   end.8)  program n1;   var a: array[1..100] of real;   i,n: integer;   min,max,nom1,nom2: real;   begin  read(n);   for i: =1 to n do  read(a[i]);   min: =a[1];   nom1: =1;   for i: =2 to n do  if a[i]< min then  begin  min: =a[i];   nom1: =i;   end;   max: =a[1];   nom2: =1;   for i: =2 to n do  if a[i]> max then  begin  max: =a[i];   nom2: =i;   end;   writeln('максимальный элемент равен ',max,', его номер ',nom2,'');   writeln('минимальный элемент равен ',min,', его номер ',nom1,'');   end. 9)  program n1;   var a: array[1..100] of real;   i,n: integer;   min,max,s,sr: real;   begin  read(n);   randomize;   for i: =1 to n do  begin  a[i]: =random(100)+1;   write(a[i],'   ');   end;   writeln;   s: =0;   sr: =0;   for i: =1 to n do  s: =s+a[i];   sr: =s/n;   writeln('ср. арифм. = ',sr,'');   min: =a[1];   for i: =2 to n do  if a[i]< min then  min: =a[i];   max: =a[1];   for i: =2 to n do  if a[i]> max then  max: =a[i];   writeln('максимальный элемент равен ',max,'');   writeln('минимальный элемент равен ',min,'');   end.

#include < iostream>                                                                 using namespace std; #define n 30 int main(int argc, char* argv[])                              {                                    setlocale(lc_all, "russian");       int a[n];       int k = 0;       for(int i=0; i< n; i++)       {             cout< < "a["< < i+1< < "]=";             cin> > a[i];       }       for(int i=1; i< n; i++)             if(a[i]==a[i-1])                   k++;       cout< < k< < "пар"< < endl;       system("pause"); }