Запишите фрагмент программы, который вычисляет кол-во не 0 элементов матрицы а в переменной к.
K:=0; for i:=1 to n do for j:=1 to m do if a[i,j]<>0 then k:=k+1;