Pascal. Проверить, является ли код оптимальным и правильным решением задачи, решить проблему вывода при отсутствии "специальных элементов" Задача: дана вещественная матрица А размера NxM, вывести значение и индексы "особого эле...

Pascal. Проверить, является ли код оптимальным и правильным решением задачи, решить проблему вывода при отсутствии "специальных элементов" Задача: дана вещественная матрица А размера NxM, вывести значение и индексы "особого элемента" (считается особым, если он больше суммы остальных элементов его столбца). Описание: const nmax=10; mmax=10; type mas=array[1..nmax,1..mmax] of real; var n,m,j,i:integer; (где n и m - размерность, не превышающая nmax, mmax соответственно) a:mas; function sum(a:mas; j:integer):real; var i:integer; s:real; begin s:=0; for i:=1 to n do s:=s+a[i,j]; sum:=s; end; begin writeln ('Специальные элементы:'); for j:=1 to m do for i:=1 to n do if a[i,j]>sum(a,j)-a[i,j] then writeln ('a[',i,',',j,']=',a[i,j]); end.