Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 90 стр.

    Program Lab7_2;
    Var
    A : Array [1..3] Of Integer;
    Begin
      A[l] : = 8;
      А[2] : = 12;
      А[3] : = А[1] + А[2];
    WriteLn('Первый : ', A[l]);
    WriteLn('Второй : ', А[2]);
    WriteLn('Третий : ', А[3]);
    End.

    Пояснения к задаче 2
    Массив А содержит 3 элемента типа Integer. Размерность массива задана
явно в описании массива. Изменение значений элементов массива происхо-
дит с помощью оператора присваивания. Результат работы программы мы
видим в табл. 14.

                                                                     Таблица 14

   A[l] – первый элемент       A[2] – второй элемент   A[3] – третий элемент
           массива                    массива                 массива
              8                          12                      20

    Задача 3
    Приведем пример программы, заполняющей элементы массива размер-
ностью n квадратами их индексов и вывод результата работы программы с
помощью оператора цикла For.
    Program Lab7_3;
    Const
          n = 9;
    Var
          A : Array [1..n] Of Integer;
          I : Integer;
    BEGIN {1}
          For i : = l To n Do
          A[i] : = I * i;
    WriteLn;
                     For I : = l To n Do
                     Begin {2}
                     WriteLn (i, ‘-й элемент’);
                     WriteLn (A[i]);
                     End; {2}
    End. {1}


                                        90