OJ Board

Please help me to find bugs in my code

[pascal]program n615;
var
graph : array[1..1000] of array[1..1000] of integer;
marked : array[1..1000] of array [1..1000] of integer;
quantity : array[1..1000] of integer;
bg,nd : integer;
i,j : integer;
subgraph : integer;
max : integer;
tree ...

Help me plz to understand why my program gets the WA

[pascal]program n763;
var
a,b,res : array[1..1000] of integer;
i,j : integer;
s : string;
len : integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
while not eof do
begin
fillchar(a ...

My program works on all my tests but gets the WA . Please help me to fix the mistakes.


This is my code
[pascal]program n120;
var
stk : array[1..1000] of integer;
operators : array[1..10000] of integer;
len : integer;
max : integer;
ready : integer;
maxissue : integer;
i : integer ...

My program works correct but gets time limit
Plz tell me How can i optimize it

[pascal]
program n729;
var
a : array[1..1000] of byte;
h,i,n : integer;
totalnumber : integer;
tot : extended;
qurrent : integer;
qual,quality : integer;
procedure getnext;
var
i,j : integer;
onesnumber ...

this is my source
[pascal]program n732;
var
comand : string;
i,j : integer;
n : integer;
s1,s2 : string;
comands : array[1..100000] of string;
qual : integer;
procedure getnext;
var
i,j,sc : integer;
begin
i := n*2;
while (i > 1) and (comand[i-1]+comand[i] <>'oi') do dec(i);
comand[i-1 ...

i made some changes
read -> readln
and
heights[i,2] := max -> heights[i,2] := heights[i,2] + max
and got accepted

Why WA ?

This is my source


program n231;
type
tpair = array[1..2] of integer;
var heights : array[1..3000000] of tpair;
i,j : integer;
n : integer;
temp : integer;
max,testnr : integer;
begin
testnr := 1;
{assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite ...