Инф олимпиада doc



бет66/66
Дата08.02.2022
өлшемі91,93 Kb.
#123795
1   ...   58   59   60   61   62   63   64   65   66
Байланысты:
1544775476 (1)

Енгізу файлының аты: apples,in
Шығару файлының аты: apples.out
Кіріс файылының бірінші жолында N және К екі сан берілген (110000). Азаттағы алманың саны және таратылған алманың саны. Екінші жолда 1-мен 10-ның арасында. N сан берілген алмалардың салмақтары. Жолдағы сандар бос орын арқылы бөлінген.
Мәліметтерді шығару форматтары. Нәтижелік шығыс файлына бір санды шығарыңыз –қалған алмалардың салмақтарының максималды қосындысы.
Есептің шешімі.
Program almalar(input,output);
Var a,c,d: array[1..10000] of 1..10;
B: array[1..10000] of Boolean;
N,k:1..10000;
M3n,max,s,j:integer;
Procedure rec(m:integer);
Var i: integer;
Begin
If m=k then begin if min< max then max:= min end else
for i:=1 to n do
if b[i] then begin
min:=min+a[i];b[i]:=false; inc(m); rec(m);
min:=min-a[i]; dec(m); b[i]:=true; end; end;
begin
filcher(b,sizeof(b), false); s:=0;
assign(input, ‘apples.in’); reset(input); read(n,k);
for j:=1 to n do begin
read(a[j]); b[j]:= true; s:=s+a[j]; end;
close(input);
max:=s; min:=0;
assign(output,’apples.out’); rewrite(output);
for i:=1 to n do begin
b[j]:=false; min:=a[j]; rec(1);b[j]:=true; end;
write(output,s-max);
close(output);
end.

Достарыңызбен бөлісу:
1   ...   58   59   60   61   62   63   64   65   66




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет