Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 22 стр.

  Uses Crt;
  Var x, S, P : Real;
                {P - очередное слагаемое}
      i, n : Integer;
BEGIN ClrScr;
  Write('Введите n = '); ReadLn(n);
  Write('Введите x = '); ReadLn(x); WriteLn;
  S := 1; P := 1;
  For i := 1 to n do
    begin
      P := - P*x /i; {получение очередного
слагаемого}
      S := S + P
    end;
  WriteLn('О т в е т : S = ', S : 7 : 3 );
ReadLn
END.




Пример 2.5. Дан массив X(N). Получить новый массив Y(N) такой, что в нем сначала
    идут положительные числа, затем нулевые, и затем отрицательные из X.

                                           Тест

                       Данные                        Результат
                         N=7
                                              Y=(2, 4, 0, 0, -1, -3, -2)
                X=(-1, 2, 0, 4, -3,-2,0)

Школьный АЯ
алг Новый Порядок (арг цел N, арг вещ таб Х[1:N], рез вещ таб
Y[1:N])
нач цел i, k     | k - индекс массива Y
  k := 0
  нц для i от 1 до N | Занесение в Y положительных чисел из X
     если X[i] > 0
         то k := k+1; Y[k] := X[i]
     все
  кц
  нц для i от 1 до N | Занесение в Y чисел, равных нулю, из X
     если X[i] = 0
       то k := k+1; Y[k] := X[i]
     все
  кц
  нц для i от 1 до N | Занесение в Y отрицательных чисел из X
     если X[i] < 0
       то k := k+1; Y[k] := X[i]
     все
  кц
кон