Cod sursa(job #2124796)

Utilizator stewie368Stefan stewie368 Data 7 februarie 2018 16:46:29
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.44 kb
program reactivi;
    type temp=record
               min,max:integer;
               end;
    var  n,i,j,k,min,max:integer;
         a:array[1..8000] of temp;
         c:temp;fi,fo:text;

begin
     assign(fi,'reactivi.in');reset(fi);
     assign(fo,'reactivi.out');rewrite(fo);
     readln(n);close(fi);
     for i:=1 to n do
                         read(a[i].min,a[i].max);
     for i:=1 to n-1 do
            for j:=1 to n do
                           begin
                                 if a[i].min>a[j].min then begin
                                                              c:=a[j];
                                                              a[j]:=a[i];
                                                              a[i]:=c;
                                                          end;
                             end;
     k:=1;min:=a[1].min;max:=a[1].max;
     for i:=2 to n do
            if a[i].min>max then begin
                                       inc(k);
                                       min:=a[i].min;
                                       max:=a[i].max;
                                  end
                           else
                               begin
                                     if (a[i].min>min) then min:=a[i].min;
                                     if (a[i].max<max) then max:=a[i].max;
                                  end;

      writeln(k);
      close(fo);

end.