Вася построил забор из имеющихся досок разной длины. - вопрос №5286999 от Артём1228777 01.05.2023 12:56

Question

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

Артём1228777 · Answer

//PascalABC.Net 3.1 сборка 1200begin    var a := ArrRandom(20, 10, 40);    var n := 0;    for var i := a.GetLowerBound(0) to a.GetUpperBound(0) - 1 do        if abs(a[i] - a[i + 1]) = 10 then begin            n := n + 1;            writeln( ( + a[i] + , + a[i + 1] + ) );        end;    writeln(n);end....