двумерные массивы

[Кирилл17]

дана матрица А(n на n элементов). получить массив х1,х2... по правилу: x[j]=1 если сумма элементов j-го столбца матрицы больше их произведения, иначе x[j]=0. Найти также средннее арифметическое элементов матрицы.

[Arigato]

Зачем нам Ваше условие задачи? Сами решайте.

[Костя КС]

может быть так

sred := 0;
for j := 1 to n do
  begin
   s := 0;
   p := 1;
   for i := 1 to n do
   begin
     s := s + A[i,j];
     p := p*A[i,j];
     if s > p then B[j]:= 1 else B[j] := 0
   end;
   sred := sred + s;
 end;
 
 sred := sred/(n*n);

это только само решение между вводом массива и выводом ответа