rotest3.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 32 行

var a:array[1..100,1..100]of integer;
    n,m,i,j,max:integer;
    v:array[1..100] of integer;
begin
write('n=');readln(n);
write('m=');readln(m);
for i:= 1to m do
   for j:=1 to n do
                 begin
                 write('a[',i,',',j,']=');
                 readln(a[i,j]);
                 end;
for i :=1 to m do
               begin
               for j:=1 to n do
               write(a[i,j]:4);
               writeln;
               end;
for i:=1 to m do
              begin
              v[i]:=0;
              for j:=1 to n do
              if a[i,j]=0 then v[i]:=v[i]+1;
              end;
max:=v[1];
for i:=2 to m do
     if v[i]>max then max:=v[i];
for i:=1 to m do
if max=v[i] then writeln(i);
readln;
end.