Вася выстроил забор из имеющихся дощечек различной длины. Если рядом стоящие

Вася выстроил забор из имеющихся дощечек разной длины. Если рядом стоящие доски отличаются не более чем на 10 сантиметров, Вася считает эту часть забора ровненькой. Сколько есть неровных долей у забора? Формат ввода: n количество дощечек в заборе (n lt;= 20) a1 длина первой дощечки a2 длина 2-ой дощечки ... an длина n-ой дощечки Пример ввода: 7 15 30 25 30 40 29 21 Формат вывода: kol - количество Пример вывода: 2 Пояснение: Неровных долей 2: (15,30) и (40,29).

Задать свой вопрос
1 ответ
//PascalABC.Net 3.1 сборка 1200
begin
    var a := ArrRandom(20, 10, 40);
    var n := 0;
    for var i := a.GetLowerBound(0) to a.GetUpperBound(0) - 1 do
        if абс(a[i] - a[i + 1]) gt;= 10 then begin
            n := n + 1;
            writeln('(' + a[i] + ', ' + a[i + 1] + ')');
        end;
    writeln(n);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт