Ограничение по времени: 1 секундаограничение по памяти: 64 мегабайтастас собрался в поход...

Question

Ограничение по времени: 1 секундаограничение по памяти: 64 мегабайтастас собрался в поход и решил взять с собой финтифлюшку (очень полезная в походе вещь). но у стаса есть несколько финтифлюшек разного объёма. стас хочет взять финтифлюшку максимального объёма, но, к сожалению, его нерезиновый рюкзак уже не вместит вещь по объёму большую V. помогите стасу сделать правильный выбор.формат входных данных:на вход программе подаётся 2 целых числа: N (1<=N<=10000) (<= это больше либо равно) - количество имеющихся у стаса финтифлюшек, и V (1<=V<=100000) - объём, который может вместиться в рюкзак.затем следует последовательность из N чисел - объёмы финтифлюшек стаса.формат выходных данныхвыведите объём финтифлюшки, которую возьмёт с собой стас.напишите начало и конец пожалуйстаmx:=0;for i:=1 to n doif (f[i]>mx) and (f[i]

Comments

if (f[i]>mx)and(f[i]

---

(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  </p>

     max:=a[i];

 end;

writeln(max);

end.