var A: array[1..m,1..n] of integer; b: array[1..m] of boolean;
По массиву А получить массив b, присвоив его k-тому элементу значение true, если все элементы k-того столбца массива А нулевые, и значение false иначе.
var
A: array[1..m,1..n] of integer;
b: array[1..m] of boolean;
l,i,j:integer;
k:boolean;
begin
writeln('vvedite k');
readln(k);
writeln('vvedite massiv');
for i:=1 to m do
for j:=1 to n do
readln(A[i,j]);
for i:=1 to m do
for j:=1 to n do
begin
m:=m+1;
b[m]:=A[i,j];
end;
for i:=1 to m do
for j:=1 to n do
if
end.
мне непонятны операции с k . как посчитать к-столбец?