желательно с объяснением и не с инета ХЕЕЕЕЛП (×_×)​

Const m = 3; n = 4; var a: array[1..m, 1..n] of integer; b: array[1..n] of integer; i,j,k,maxm: integer; begin   for i: =1 to m do begin       for j: =1 to n do begin           write('a[',i,',',j,']= ');           readln (a[i,j]);           if a[i,j]< =0 then b[j]: =-1;       end;   end;     for i: =1 to n do begin       if b[i]=0  then begin           writeln('столбец №',i,' все положительные');           break;         end         else           if i=n then writeln('таких столбцов не было');       end;   for i: =1 to m do begin       for j: =1 to n do write(a[i,j]: 5);       writeln;   end; end. тестовое решение: a[1,1]= 7 a[1,2]= 2 a[1,3]= 1 a[1,4]= -9 a[2,1]= -2 a[2,2]= 2 a[2,3]= 4 a[2,4]= 1 a[3,1]= 7 a[3,2]= 2 a[3,3]= 3 a[3,4]= 1 столбец №2 все положительные       7      2      1    -9     -2      2      4      1       7      2      3      1