Нужна помощь с Матрицай М на Н, сумма элементов Опции

[ovosch]

Доброй ночи.
Не получается решить задачу . Помогите пожалуйсто

Дана вещественная матрица размерности n×m. Найти общую сумму элементов только тех столбцов, которые имеют хотя бы один нулевой элемент.

program ovosch;
var A:array [1..100,1..100] of integer;

i,j,m,n:integer;
sum: real;
begin

readln(n);
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
 a[i,j]:=random(51);
      write(a[i,j]:4);
      end;
      writeln
      
      end;
      if j=0 then ??????
      end.

Это всё ,что я смог сделать. Вроде всё ясно, представляю, но записать ума не хватает

М

Теги! Правила Форума, п.5, и правила раздела Задачи, п.2 Lapp