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

Решите задачу по информатике на C++
A. Ваня и забор
ограничение по времени на тест 1 секунда
ограничение по памяти на тест 256 мегабайт

Ваня с друзьями идёт по запрещенной территории возле забора высотой h. Чтобы охранник их не заметил, высота каждого из друзей не должна превышать h. При этом каждый из них может пригнуться, тогда его точно не будет видно охраннику. Высота i-го из друзей равняется a i.

Будем считать, что ширина человека, идущего в полный рост, равна 1, а согнутого — 2. Друзья хотят идти по дороге в один ряд, чтобы иметь возможность разговаривать друг с другом. Какой минимальной ширины должна быть дорога, чтобы все они поместились на ней в один ряд и охранник никого не увидел?

Входные данные
В первой строке входных данных записаны два целых числа n и h (1 ≤ n ≤ 1000, 1 ≤ h ≤ 1000) — количество друзей и высота забора соответственно.

Во второй строке записаны n целых чисел a(i) (1 ≤ a(i )≤ 2h), i-е из которых равняется высоте i-го друга.

Выходные данные
Выведите единственное целое число — минимальную подходящую ширину дороги.

Показать ответ
Ответ:
Щерсть
Щерсть
07.03.2021 22:48
DIM m AS INTEGER
CLS
INPUT "m=", m
DIM a(1 TO m, 1 TO m) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO m
   FOR j = 1 TO m
      a(i, j) = 50 * RND - 25
      PRINT USING ""; a(i, j);
   NEXT j
   PRINT
NEXT i
DIM P AS DOUBLE, S AS INTEGER
DIM B(1 TO m) AS DOUBLE
P = 1
FOR i = 1 TO m
   S = 0
   FOR j = 1 TO m
      IF a(i, j) > 0 THEN P = P * a(i, j)
      S = S + a(i, j)
   NEXT j
   B(i) = S / m
NEXT i
PRINT "P="; P
PRINT "Vector"
FOR i = 1 TO m
   PRINT USING "###."; B(i)
NEXT i

Пример
m=5
   3 -12  -2  -3  -4
  11 -13  21  20  14
  21   5  18 -20  -1
  -3  24 -24 -19   8
 -14 -24  -7  -2  -3
P= 70413235200
Vector
 -3.60000
 10.60000
  4.60000
 -2.80000
-10.00000
0,0(0 оценок)
Ответ:
АлёнаKet234
АлёнаKet234
07.02.2023 22:15
1)
var
  s: string;

begin
  writeln('Введите строку: ');
  readln(s);
  if pos('а', s) <> 0 then writeln('В строке есть буква "а"')
  else writeln('В строке нет буквы "а"');
end.

2)
var
  s: string;
  i, a: byte;

begin
  a := 0;
  writeln('Введите строку: ');
  readln(s);
  for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
  writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.

3)
var
  s: string;

begin
  writeln('Введите строку: ');
  readln(s);
  while pos('и', s) <> 0 do delete(s, pos('и', s), 1);
  writeln('Строка после удаления букв(ы) "и": ', s);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота