Что будет результатом выполнения фрагмента программы на языке программирования Turbo Pascal: For i := 1 to n do For j := 1 to n do if i = j then a[i, j] := a[i, j] + i; (Опишите словами, например, результатом будет количество четных элементов в каждом столбце квадратной матрицы)