Инф олимпиада doc
жүктеу/скачать 91,93 Kb.
|
1544775476 (1)
- Бұл бет үшін навигация:
- Мәліметтерді шығару форматтары.
| Енгізу файлының аты: apples,in
Шығару файлының аты: apples.out Кіріс файылының бірінші жолында N және К екі сан берілген (1 Мәліметтерді шығару форматтары. Нәтижелік шығыс файлына бір санды шығарыңыз –қалған алмалардың салмақтарының максималды қосындысы. Есептің шешімі. 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. жүктеу/скачать 91,93 Kb. Достарыңызбен бөлісу:
|