Luikas45676345
07.08.2020 08:06

Где-то в другой вселенной Витя занимается продажей Жайфонов. Всего у него сейчас есть n Жайфонов. i-я из них стоит ai тенге. Всем известно, что стоимость смартфона постепенно падает с каждым месяцем, ведь на рынке постоянно появляются новые, более крутые модели. В случае с Витей с каждым месяцем все его смартфоны дешевеют на 1000 тенге. Однако стоимость смартфона никогда не падает ниже 9990 тенге.

Каждый из следующих n месяцев он будет выбирать и продавать ровно один из своих Жайфонов ему заработать как можно больше тенге.

Входные данные
В первой строке входного файла дано одно целое число n — кол-во Жайфонов у Вити (1≤n≤105).

Во второй строке даны n положительных целых чисел a1, a2, ..., an (9990≤ai≤199990). Ценники соответствуют реальности, то есть всегда заканчиваются на 990.

Выходные данные
Выведите единственное число — максимальное кол-во тенге которые может заработать Витя.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Sanya3110
28.02.2020 18:50
У вас есть число 137
если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.).
начнём:
137 / 2 = 68 выписываем остаток (1) 
68   / 2 = 34 выписываем остаток (0)
34   / 2 = 17 выписываем остаток (0)
17   / 2 = 8   выписываем остаток (1)
8     / 2 = 4   выписываем остаток (0)
4     / 2 = 2   выписываем остаток (0)
2     / 2 = 1  <==   на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001;
ответ: 001001
0,0(0 оценок)
Ответ:
лис239
16.10.2020 15:01
Const
  dm:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var
  d,m,y,dFeb:integer;
begin
  Write('Введите дату в формате день месяц год: ');
  Read(d,m,y);
  if (m=2) and (d>=28) then begin
    if ((y mod 4=0) and (y mod 100 <> 0)) or
      ((y mod 100=0) and (y mod 400 =0)) then dFeb:=29
    else dFeb:=29;
    if d=dFeb then begin d:=1; Inc(m) end
    else Inc(d);
    if m=13 then begin m:=1; Inc(y) end
  end
  else begin
    Inc(d);
    if d>dm[m] then begin d:=1; Inc(m) end;
    if m=13 then begin m:=1; Inc(y) end
  end;
  Writeln('Следующая дата ',d,' ',m,' ',y)
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота