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

   X, Z : array[1..nn] of real;
Begin
   { инициализация }
    Write('Введите количество элементов в векторе: ');
    ReadLn(n);
    { цикл }
    For i := 1 to n do
      begin
          Read(X[i]);
          Z[i] := Sqrt((X[i] + 1) / i)
      end;
     WriteLn;
     For i := 1 to n do
        Write(Z[i]:10:3)
 End.
3. Формирование нового массива по заданному условию (проекция).
Пример.
Переписать элементы целочисленного массива М[1..40], кратные пяти, подряд в массив М5.
Если такие элементы отсутствуют, то выдать диагностическое сообщение об этом.
Программа имеет вид:
Program Project;
Сonst
    nn=40;
Var
    k, i, n : integer;
    M, M5 : array [1..nn] of integer;
Begin
   { инициализация }
   Write('Введите количество элементов в векторе: ');
    ReadLn(n);
    k := 0;
   { цикл }
    For i := 1 to n do
     begin
         Read (M[i]);
         If M[i] div 5*5 = M[i] then
           begin
            k := k + 1;
            M5[i] := M[i]
           end
        end;
     If k = 0 then writeln('Элементов, кратных 5, нет.')
       else
         begin
           WriteLn('Элементы нового массива:');
           For i := 1 to k do
            Write (M5[i]:8);
         end
End.

4. Вычисление суммы и произведения элементов массивов.
Пример A.

                                                                                   53