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

Само же описание массива делается в разделе Тype основной
программы.
    Например, в основной программе имеется следующее
описание массива А:
    Сonst N =10;
    Тype Мas = Аrray [1 .. N] of Real;
    Var А: Мas;
    Тогда формальные параметры заголовка процедуры
Рrim могут иметь вид:
    Рrocedure Prim (k: Integer; Var Х: Мas);
    при следующих фактических параметрах (т. е. вызов
процедуры по имени):
    Рrim (N, А);
    Имеем следующее соответствие формальных и фактиче-
ских параметров:
    – Формальный параметр k (процедура) Æ фактический
параметр N.
    – Формальный параметр Х (процедура) Æ значения
массива А.
    В процедуре значения массива Х могут измениться, и то-
гда новые значения получит массив А.

    Задача 4
    Найти максимальные элементы массивов a, b и номера и
номера этих элементов. Подпрограмму поиска оформить в
виде процедуры.
    Program Lab8_4;
    Uses Crt;
    {Тип данныхVector будет определять тип формального
параметра}
    Type Vector = Array [1 .. 200] of Real;
    Var a, b: Vector;
    i, k: Integer;
    max: Real; {максимальный элемент}
    nmax: Integer; {номер максимального элемента}
    {Описание процедуры нахождения максимального эле-
мента в массиве}
    Procedure Max1 (x: Vector; L: Integer; Var rmax: Real; Var
                             83