Что будет результатом выполнения фрагмента программы на языке программирования turbo pascal: for i : = 1 to n do begin y[i] : = 0; for j : = 1 to m do if x[j, i] > 0 then y[i] : = y[i] + x[i, j]; end; (опишите словами, например, результатом будет количество четных элементов в каждом столбце квадратной матрицы)