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

     Readln(M[i, j ] ) ;
  end;
  for i: = 1 to n do
     for j:= 1 to n do
         if i < j then { если выше главной диагонали}
             if M[i, j] < 0 then M[i, j] := SQR(M[i, j] ) ; { если
                         элемент отрицательный, то заменить
                         его квадратом}
  {Вывод результатов}
  for i:= l to n do
  begin
     for j:= 1 to n do Write(M[i, j]: 3 );
     Writeln;
  end;
end.

      18.4 Констант-массивы
      Очень часто возникают сложности, связанные с вводом
элементов массива, особенно во время отладки. Приходится по
нескольку раз вводить большие объемы информации. Этого
можно избежать, описав массив - константу в разделе Const.

                   Одномерный массив
  <идентификатор — имя массива>: array [ <диапазон изме-
        нения индекса>] of
      <тип элементов>= (<список элементов, через запятую>);
      Примеры:

 Const
    A : array [ 1 .. 5] of integer = (7, 3, 22, 4, 3) ;
    B : array [ 1 .. 3] of real = (2.55, 7.1, 3.6) ;
    C : array [ 1 .. 3] of char = (‘A’, ‘B’, ‘C’) ;

                 Многомерные массивы
  <идентификатор - имя массива>: array [ <список диапазо-
                                                                     69