Определить количество столбцов, не содержащих ни одного нулевого элемента - Pascal ABC (12987)
Формулировка задачи:
Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого элемента.
Решение задачи: «Определить количество столбцов, не содержащих ни одного нулевого элемента»
textual
Листинг программы
const n=6;
m=8;
var a:array[1..n,1..m] of integer;
i,j,k,f:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
k:=0;
for j:=1 to m do
begin
f:=1;
i:=1;
while(i<=n)and(f=1) do
if a[i,j]=0 then f:=0
else i:=i+1;
k:=k+f;
end;
writeln('Количество столбцов без нолей=',k)
end.