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

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

Задать свой вопрос
Владимир Шадыро
if (f[i]>mx)and(f[i]
Александра
(f[i]
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]gt;max) and (a[i]lt;=v) then  

     max:=a[i];

 end;

writeln(max);

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт