Массивы(исправить программу)

[ilyas22]

{
Написать программу решения следующей задачи для расчёта количества нулевых элементов i-ой строки матрицы B(k,m),
}
program _;
uses crt;
var
b:array [1..100,1..100] of integer;
k,m,i,j,n:integer;
begin
n:=0;
writeln('введите количество элементов строк');
readln(k);
writeln('введите количество элементов столбцов');
readln(m);
For i:=1 to k do
begin
For j:=1 to m do
begin
writeln('введите b[',i,',',j,']');
readln(b[i,j]);
end;
end;
for i:=1 to k do
begin
for j:=1 to m do
write(b[i,j]:2);
writeln;
end;
for i:=1 to k do
begin
for j:=1 to m do
if b[i,j]=0 then inc(n); writeln('количества нулевых элементов',i,'-ой строки равно',n);
end;
end.


Количество нулевых элементов складывается, и получается неверное n

[ROMA2PVT]

Ну практически всё верно.

program _;
uses crt;
var
b:array [1..100,1..100] of integer;
k,m,i,j,n:integer;
begin
randomize;
writeln('введите количество элементов строк');
readln(k);
writeln('введите количество элементов столбцов');
readln(m);
For i:=1 to k do
begin
For j:=1 to m do
begin
b[i,j]:=random(10)-2;
write(b[i,j]:2);
end;
writeln;
end;

for i:=1 to k do
begin
n:=0;
for j:=1 to m do
if b[i,j]=0 then inc(n); writeln('количества нулевых элементов',i,'-ой строки равно',n);
end;
end.

[ilyas22]

Спасибо!!!

[ROMA2PVT]

Да не за что.