Imi explica si mie cineva cum s-ar face prb asta, ca nu reusesc sa iau pct maxim si nu stiu ce am gresit.

Poate sa imi explice si mie cineva ce trebuie sa faca problema asta? ca stau de 3 zile la ea si nu reusesc. Pe ex dat imi ruleaza corect dar tot 0 pct iau. SE pot  face flip pe mai multe coloane si mai multr linii sau doar pe o linie si o coloana?

Care este principiul includerii si excuderii?

Mie imi da eroarea "Non-zero exit status". Ce inseamna?

Mie imi da numai 40 de pct si nu stiu unde ar fi problema, probabil e o prb la numararea cuvintelor.Care sunt cazurile in care se trece la un cuvant nou in afara de spatiu si "-"? poate ma ajuta si pe mn cineva

Ms teodor

Cum as putea sa verific timpul in care se ruleaza un prg.?

Stie cineva ce am gresit in sursa urm. de imi da 0 pct.? Am verificat prg. si la mn ruleaza corect si totusi imi da 0 pct.

Cod:

program loto;
uses crt;
var n,i:byte;
    sp:longint;
    g:boolean;
    v,sol:array[1..100]of longint;
procedure ext(i:byte;s:longint);
var x,l:byte;
begin
     if (s=sp)or(i=7)then
        begin
             if (s=sp)and(i=7) then
                g:=true;
        end
     else
          for x:=1 to n do
           if not g then
            if s+v[x]<=sp then
               begin
                    sol[i]:=v[x];
                    ext(i+1,s+v[x]);
               end;
end;
begin
     readln(n);
     readln(sp);
     for i:=1 to n do
         readln(v[i]);
     g:=false;
      ext(1,0);
     if g then
        for i:=1 to 6 do
            write(sol[i],' ')
        else
            writeln(-1);
     readln;
end.