Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 54 стр.

Составить программу для вычисления значения функции
        ∑X
                 2
   Z=        i       /i,   где Xi -элемент массива X[1..20].

Программа имеет вид:
Program Summa;
Const
    nn = 20;
Var
    n, i : integer;
    Z : real;
    X : array [1..nn] of real;
Begin
   { инициализация }
   Write('Введите количество элементов в векторе : ');
   ReadLn(n);
   Z := 0;
   { цикл }
   For i := 1 to n do
      begin
        Read (X[i]);
        Z := Z + Sqr(X[i])/i
       end;
 End.
Пример Б.
Составить программу для вычисления произведения Z положительных элементов массива
Х[1..100].
Программа имеет вид:
Program Mult;
   Const
     nn = 100;
   Var
     i, n : integer;
     Z : real;
     X : array[1..nn] of real;

  Begin
   { инициализация }
   Write('Введите количество элементов в векторе : ');
   ReadLn(n);
   Z := 1;
   { цикл }
   For i := 1 to n do
    begin
      Read (X[i]);
      If X[i] > 0 then Z := Z * X[i]
    end;
    Writeln('Произведение элементов Z = ', Z)
   End.

5. Вычисление суммы членов бесконечного ряда с заданной точностью.
Пример.
Составить программу для вычисления суммы членов ряда

                                                                              54