uses crt;
var f:text; n,m,i,j,x,y,d1,d2,dd1,dd2,g,h:longint;
a:array[1..1000,1..10000]of char;
b:array[1..1000,1..10000]of byte;
begin
clrscr;
assign(f,'input.pas');reset(f);
readln(f,n,m);
for i:=1 to n do
begin
for j:=1 to m do begin a[i,j]:='O'; read(f,b[i,j]); end;
readln(f);
end;
assign(f,'output.pas');rewrite(f);
for i:=1 to n do
begin
for j:=1 to m do
if b[i,j]=1 then
begin
d1:=0; d2:=0; dd1:=0; dd2:=0;
for x:=1 to i-1 do
if a[x,j]='X' then inc(d1) else
if a[x,j]='V' then inc(d2);
for x:=1 to j-1 do
if a[i,x]='X' then inc(dd1) else
if a[i,x]='V' then inc(dd2);
if abs(d1-d2)>=abs(dd1-dd2) then
if d1>=d2 then a[i,j]:='V' else a[i,j]:='X'
else
if dd1>=dd2 then a[i,j]:='V' else a[i,j]:='X';
end;
end;
for i:=1 to n do
begin
for j:=1 to m do write(f,a[i,j],' ');
writeln(f);
end;
close(f);
end.
Kết quả không giống trong đề nhưng hoàn toàn thỏa yêu câu.
