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

konstantunzayac konstantunzayac    2   26.04.2019 20:05    21

Ответы
SXTN SXTN  08.06.2020 23:32

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика