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

         for j:= 1 to n do if i = j then...  .
    Но необходимости во вложенном цикле нет, достаточно
                    одного}
  k:= 0;
  for i:= 1 to n do
     if M[i, i] > 0 then
     begin
         k:= k + 1;
         M[i, i] := 0;
     end;
  {Вывод результатов}
  Writeln(' k= ', k) ;
  Writeln;
  for i:= 1 to n do
  begin
     for j:= 1 to n do Write (M[i, j] : 3 );
     Writeln;
  end;
end.

         Задача. Матрица n*n вводится с клавиатуры, заменить
все отрицательные элементы выше главной диагонали их квад-
ратами. Вывести новую матрицу на экран.
program p22;
const
   n:= 4;
var
   М: array[1.. n, 1.. n] of integer;
   i, j ; integer;
begin
   {Ввод элементов матрицы}
   for i:= 1 to n do
   for j:= 1 to n do
   begin
        Write('введите М[ ' , i, ', ' , j , '] ');
                                                          68