max0:=0;
maxj:=0;
for i:=1 to n do
begin
n0:=0;
for j:=1 to n do
if a[j,i]=0 then inc(n0);
if n0>max0 then
begin
max0:=n0;
maxj=i;
end;
end;
writeln('Номер:',Max0);
for i:= 1 to n do
write(a[maxj,i);
Двумерный массив
1.Сформировать и вывести матрицу А(10,10),элементы которой заданы произвольно,кроме элементов,расположенных в заштрихованной области (рис.) и равных нулю.
2.Вывести элементы и номер столбца, содержащего наибольшее количество нулей.
2.Вывести элементы и номер столбца, содержащего наибольшее количество нулей.
