기념품 그룹pascal 프로그램

953 단어
큰 순서에서 작은 순서까지 a[i]+a[j]가 제한을 초과하지 않으면 tj를 추가할 수 있습니다. 그렇지 않으면 i가 다음 순서를 가리킵니다.
  • var
w,n,i,j,tj:longint;
a:array[0..30000]of longint;
procedure kp(l,r:longint);
var
i,j,mid:longint;
begin
    if l>=r then exit;
    i:=l;j:=r;mid:=a[(l+r)div 2];
    repeat
         while a[i]>mid do inc(i);
         while a[j]j);
    kp(l,j);
    kp(i,r);
end;
begin
    readln(w);
    readln(n);
    for i:=1 to n do
    readln(a[i]);
    kp(1,n);//  ，    
    i:=1;j:=n;tj:=0;//
    repeat
         if (a[i]+a[j])<=w then//            w
         begin
             inc(tj);//    
             inc(i);//     
             dec(j);//     
         end else
         begin
             inc(tj);//       
             inc(i);//i     
         end;
    until(i>j);
    write(tj);
end.

    • 전재 대상:https://www.cnblogs.com/YYC-0304/p/9500252.html
    SWEA 2477 차량 정비소(with Python)
    [Django] REST API

    좋은 웹페이지 즐겨찾기

    개발자 우수 사이트 수집

    개발자가 알아야 할 필수 사이트 100선 추천 우리는 당신을 위해 100개의 자주 사용하는 개발자 학습 사이트를 정리했습니다
    best100-homepage