Объясните почему у меня программа не правильно работает
№1.
Дана действительная матрица n на m заполненая цифрами 0 и 1. Определить число строк, в которых едениц меньше чем нулей.
| Код |
Program df;
var
a:array [1..100,1..100] of integer;
k:array [1..100] of integer;
z:array [1..100] of integer;
i,j,n,m,s: iteger;
begin
writeln('введите размерность матрицы'); readln(n,m);
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(2);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
begin
for i:=1 to m do
k[i]:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]=1 then k[i]:=k[i]+1;
end;
begin
for i:=1 to m do
z[i]:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]=0 then z[i]:=z[i]+1;
end;
if k[i]<z[i] then s:=s+1;
writeln(s);
readln
end.
|
|
)