Question

Ограничение по времени: 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]

Answer 1

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.