Cod sursa(job #56948)

Utilizator info_arrandrei gigea info_arr Data 30 aprilie 2007 20:29:58
Problema Regiuni Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
Raporteaza aceasta sursa 
{$IFDEF NORMAL}
  {$I-,Q-,R-,S-}
{$ENDIF NORMAL}
{$IFDEF DEBUG}
  {$I+,Q+,R+,S-}
{$ENDIF DEBUG}
{$IFDEF RELEASE}
  {$I-,Q-,R-,S-}
{$ENDIF RELEASE}

const lmax=35;
      cst=30;
      nmax=1001;

var s:array[1..lmax,1..nmax] of integer;
    a,b,c:array[1..nmax] of integer;
    aux:array[1..lmax] of integer;
    i,j:integer;
begin
for i:=1 to nmax do
  for j:=1 to nmax do
   s[i,j]:=1000;
end.