Search found 1 match

by kelvin
Tue Aug 13, 2002 1:45 pm
Forum: Volume 102 (10200-10299)
Topic: 10279 - Mine Sweeper
Replies: 102
Views: 29931


[pascal] :cry: I passed the sample but I still got WA I need help type arr=array[1..10,1..10] of char; var a:arr;f,n:integer; procedure ini(n:integer); var i,j:integer; begin for i:=1 to n do begin for j:=1 to n do read(a[i,j]); readln; end; end; procedure main(var a:arr); var i,j,t:integer; ch:char...

Go to advanced search