TURBO PASCAL:Учебное пособие. Терёхин В.В. - 61 стр.

Подобным образом можно организовать вывод элементов мас-
сива на экран. Например, в строку без комментариев:

for i:= 1 to n do Writeln(А[i] : 4);

или в столбец и с комментариями:

for i:= 1 to n do Writeln('А[' , i , ']= ' , A[i]);

Как правило, и любые другие операции с элементами массива
осуществляются в цикле, и лучше всего для этих целей
подходит цикл типа for … do.
        Часто размер массива приходится несколько раз изме-
нять во время отладки программы. Изменение диапазона в опи-
сание массива влечёт за собой изменение параметров цикла и
возможно других переменных. Можно облегчить подобные
преобразования, если при указании диапазона изменения ин-
дексов использовать нетипизированные константы.
        Задача. Ввести массив с клавиатуры, найти макси-
мальный и минимальный элементы.
program p18;
const n = 10;
var
   A: array[1, n] of real;
   i: integer;
   max, min: real;
begin
   {ввод элементов массива}
   Writeln(‘введите элементы массива, ‘ , n, ‘ элементов');
    for i:= 1 to n do Read (A [i] );
    {поиск максимума и минимума}
    max:= А [ 1] ;
    min:= A [ l] ;
    for i:= 2 to n do
    begin
                                                         61