program semestr;
uses crt;
const eps=0.55; n=6;
var
  i, j, k: longint;
  x: array [1..n] of real;
  func, tmpfunc, chx: extended;
begin
  clrscr;
  writeln('eps= ',eps:5:3,'  n= ',n);
  for i:=1 to n do
  begin
    write('Vvedite x[',i,'] = ');
    readln(x[i]);
  end;

  for i:= 1 to n do
  begin
    func:=0;
    j:=0;
    tmpfunc:=0;
    repeat
     for k:=0 to 2*j do
       if k = 0 then
         chx:= 1
       else
         chx:=chx*x[i]/k;

      tmpfunc:=tmpfunc+chx;
      inc(j);
    until abs
    (chx) <= eps;
    func:=1+sqr(tmpfunc)*(1-x[i]-sqr(x[i]));
    writeln('Y(x[',i,'])= ',func:10:4);
  end;
  readln;
end.

#include <iostream.h>
#include <stdlib.h>

int main ()
{
   const mas = 10;
   const mas_=mas-1;
   int massive[mas],ia=0,ia_=0,chk=0;
   cout << "Sourse massive:\n";
   for (ia=0; ia < mas; ia++)
   {
      massive[ia]=rand() % 99-60 ;
      cout << massive[ia] << endl;
   }
   for (ia=0; ia<mas; ia++)
   {
      ia_=ia-1;
      if ( (div(massive[ia],2).rem)==0 && (div(massive[ia_],2).rem)!=0)
      {
         chk = 1;
      }
   }
   if (chk == 0)
   {
      cout << "Otrich znach:\n";
      for (ia=mas_; ia>=0; ia--)
      {
         if (massive[ia] < 0)
         {
            cout << massive[ia] << endl;
         }
      }
   }
   else
   {
      cout << "Pologit znach:\n";
      for (ia=mas; ia>=0; ia--)
      {
         if (massive[ia] >= 0)
         {
            cout << massive[ia] << endl;
         }
      }
   }

   return (0);
}