В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Марс2014
Марс2014
01.06.2020 06:23 •  Информатика

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

Показать ответ
Ответ:
umma95
umma95
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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота