Red de conocimiento informático - Aprendizaje de código fuente - Recogiendo melocotones (programación Pascal) (primaria) ¡Apúrate, apúrate, apúrate! ! ! ! ! ! necesidad urgente! ! ! ! ! !

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.