Imprimă pagina - Cel mai lung subsir comun

Poate careva sa-mi spuna de ce primesc pe evaluare 0p si eroarea "Non-zero exit status."? Cand ii dau compile problemei cu exemplul din cerinta, pare sa functioneze corect... Cod sursa:

Cod:

var f,g:text;
    A,B,C:array[1..20] of byte;
    ttl,la,lb,i,j:integer;
begin
assign(f,'clmsc.in');reset(f);
assign(g,'clmsc.out');rewrite(g);
readln(f,la,lb);
for i:=1 to la do
read(f,a[i]);readln(f);
for i:=1 to lb do
read(f,b[i]);readln(f);
for i:=1 to la do begin
  for j:=1 to lb do
      if a[i]=b[j] then begin ttl:=ttl+1;c[ttl]:=a[i];end;
end;
writeln(g,ttl);
for i:=1 to ttl do
write(g,c[i],' ');
close(g);
end.

infoarena

infoarena - concursuri, probleme, evaluator, articole => Arhiva educationala => Subiect creat de: Paul G din Februarie 16, 2014, 14:04:54