Дом и магазины

@8nteger · Регистрация: 24.11.2018

Author24 — интернет-сервис помощи студентам

На Паскале

Задача C. Дома и магазины
На Новом проспекте построили подряд 10 зданий. Каждое здание может быть либо жилым
домом, либо магазином, либо офисным зданием.
Но оказалось, что жителям некоторых домов на Новом проспекте слишком далеко приходится
идти до ближайшего магазина. Для разработки плана развития общественного транспорта на
Новом проспекте мэр города попросил вас выяснить, какое же наибольшее расстояние приходится
преодолевать жителям Нового проспекта, чтобы дойти от своего дома до ближайшего магазина.

Формат входных данных
Программа получает на вход десять чисел, разделенных пробелами. Каждое число задает тип
здания на Новом проспекте: число 1 обозначает жилой дом, число 2 обозначает магазин, число 0
обозначает офисное здание. Гарантируется, что на Новом проспекте есть хотя бы один жилой дом
и хотя бы один магазин.

Формат выходных данных
Выведите одно целое число: наибольшее расстояние от дома до ближайшего к нему магазина.
Расстояние между двумя соседними домами считается равным 1 (то есть если два дома стоят рядом,
то между ними расстояние 1, если между двумя домами есть еще один дом, то расстояние между
ними равно 2 и т.д.)

Пример
ввод - 2 0 1 1 0 1 0 2 1 2
вывод - 3
В примере из условия дальше всего идти до ближайшего магазина жителям четвертого дома:
ближайший к их дому магазин находится в первом доме, и им нужно пройти три дома до него.
Жителям других домов придется пройти меньшее расстояние до ближайшего магазина, поэтому
ответ 3.
0

@кот Бегемот · 24.11.2018, 20:12

Pascal

var
a,max:array[1..10]of integer;
i,j,maxmax,r:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
max[i]:=11;
maxmax:=0;
for i:=1 to 10 do
 for j:=1 to 10 do
  if (a[i]=1)and (a[j]=2) then
    begin
    r:=abs(j-i);
    if r<max[i] then max[i]:=r;
    end;
    for i:=1 to 10 do
    if (a[i]=1)and (max[i]>maxmax)then maxmax:=max[i];
    writeln(maxmax);
    end.

@8nteger 0 / 0 / 0 Регистрация: 24.11.2018 Сообщений: 8
		1
	Дом и магазины 24.11.2018, 15:52. Показов 5546. Ответов 1 Метки паскаль abc.net (Все метки) На Паскале Задача C. Дома и магазины На Новом проспекте построили подряд 10 зданий. Каждое здание может быть либо жилым домом, либо магазином, либо офисным зданием. Но оказалось, что жителям некоторых домов на Новом проспекте слишком далеко приходится идти до ближайшего магазина. Для разработки плана развития общественного транспорта на Новом проспекте мэр города попросил вас выяснить, какое же наибольшее расстояние приходится преодолевать жителям Нового проспекта, чтобы дойти от своего дома до ближайшего магазина. Формат входных данных Программа получает на вход десять чисел, разделенных пробелами. Каждое число задает тип здания на Новом проспекте: число 1 обозначает жилой дом, число 2 обозначает магазин, число 0 обозначает офисное здание. Гарантируется, что на Новом проспекте есть хотя бы один жилой дом и хотя бы один магазин. Формат выходных данных Выведите одно целое число: наибольшее расстояние от дома до ближайшего к нему магазина. Расстояние между двумя соседними домами считается равным 1 (то есть если два дома стоят рядом, то между ними расстояние 1, если между двумя домами есть еще один дом, то расстояние между ними равно 2 и т.д.) Пример ввод - 2 0 1 1 0 1 0 2 1 2 вывод - 3 В примере из условия дальше всего идти до ближайшего магазина жителям четвертого дома: ближайший к их дому магазин находится в первом доме, и им нужно пройти три дома до него. Жителям других домов придется пройти меньшее расстояние до ближайшего магазина, поэтому ответ 3. 0 0

	24.11.2018, 20:12

Дом и магазины

Решение