Цитата:
Сообщение от Brizonthik
Дана целочисленная прямоугольная матрица. Определить количество столбцов,содержащих хотя бы один нулевой элемент (оформить в виде фукции).
|
type
mas=array [1..100,1..100] of integer;
function otv(a:mas; m,n:integer):integer;
var
i,j,k:integer;
begin
k:=0;
for j:=1 to n do
for i:=1 to m do
if a[i,j]=0 then begin k:=k+1; break; end;
otv:=k;
end;
var
b:mas;
sto,str:integer;
begin
{Тут ввод матрицы b порядка m*n, где sto - кол-во столбцов , а str - кол-ко строк}
writeln('Ответ ',otv(b,str,sto));
end.