Ограничение по времени: 1 секунда
ограничение по памяти: 64 мегабайта
стас собрался в поход и решил взять с собой финтифлюшку (очень полезная в походе вещь). но у стаса есть несколько финтифлюшек разного объёма. стас хочет взять финтифлюшку максимального объёма, но, к сожалению, его нерезиновый рюкзак уже не вместит вещь по объёму большую V. помогите стасу сделать правильный выбор.
формат входных данных:
на вход программе подаётся 2 целых числа: N (1<=N<=10000) (<= это больше либо равно) - количество имеющихся у стаса финтифлюшек, и V (1<=V<=100000) - объём, который может вместиться в рюкзак.
затем следует последовательность из N чисел - объёмы финтифлюшек стаса.
формат выходных данных
выведите объём финтифлюшки, которую возьмёт с собой стас.
напишите начало и конец пожалуйста
mx:=0;
for i:=1 to n do
if (f[i]>mx) and (f[i]
ограничение по памяти: 64 мегабайта
стас собрался в поход и решил взять с собой финтифлюшку (очень полезная в походе вещь). но у стаса есть несколько финтифлюшек разного объёма. стас хочет взять финтифлюшку максимального объёма, но, к сожалению, его нерезиновый рюкзак уже не вместит вещь по объёму большую V. помогите стасу сделать правильный выбор.
формат входных данных:
на вход программе подаётся 2 целых числа: N (1<=N<=10000) (<= это больше либо равно) - количество имеющихся у стаса финтифлюшек, и V (1<=V<=100000) - объём, который может вместиться в рюкзак.
затем следует последовательность из N чисел - объёмы финтифлюшек стаса.
формат выходных данных
выведите объём финтифлюшки, которую возьмёт с собой стас.
напишите начало и конец пожалуйста
mx:=0;
for i:=1 to n do
if (f[i]>mx) and (f[i]
More Questions From This User See All
Answers & Comments
var
n,v,max,i : integer;
a : array [1 ..10000] of integer;
begin
writeln('Введите количество финтифлюшек');
read(n);
writeln('Введите объём рюкзака');
read(v);
writeln('Введите объёмы финтифлюшек');
max:=0;
for i:=1 to n do
begin
read(a[i]);
if (a[i]>max) and (a[i]<=v) then
max:=a[i];
end;
writeln(max);
end.