Recogiendo melocotones (programación Pascal) (primaria) ¡Apúrate, apúrate, apúrate! ! ! ! ! ! necesidad urgente! ! ! ! ! !
programa zaozi;
escriba arr=array[1..10000]de entero largo;
var n,m,i,j,ans,sum: longint;
a,b:arr;
procedimiento qs(var a:arr;l,r:longint);
var i,j,mid ,t:longint;
comenzar
i:=l;j:=r;mid:=a[(l+r)shr 1];
repetir
while(a[i] while(a[j]>mid)hacer dism(j); si(i<=j)entonces comenzar t:=a[i];a[i]:=a[j];a[j]: =t; inc(i);dec(j); fin; hasta i>j; si( j>l)entonces qs(a,l,j); si(i fin; comenzar readln(n,m); para i:=1 a n hacer read(a[i]); qs( a,1,n); para i:=1 a m lea(b[i]); qs(b,1,m); j:=1;i:=1; mientras(i<=n)y(j<=m) comienzan si(b[j]>=a[i])y(suma<2)entonces comienzan inc(i); inc(suma ); inc(ans); fin; si(b[i] comenzar inc(j);suma:=0; fin; fin; escribir (ans); fin.