Вася построил забор из имеющихся досок разной длины. если рядом стоящие доски отличаются не более чем на 10 сантиметров, вася считает эту часть забора ровной. сколько есть неровных частей у забора? формат ввода: n – количество досок в заборе (n < = 20) a1 – длина первой доски a2 – длина второй доски an – длина n-ой доски пример ввода: 7 15 30 25 30 40 29 21 формат вывода: kol - количество пример вывода: 2 пояснение: неровных частей 2: (15,30) и (40,29).
cfr1
1
22.07.2019 03:50
3
Другие вопросы по теме Информатика
abdirovadajana
28.07.2019 13:40
Никита8547
28.07.2019 13:40
ArianTop
17.05.2020 17:45
maryyyyy2
17.05.2020 17:44
angeldeikina
17.05.2020 17:43
нона57
17.05.2020 17:44
asvpdsh
24.09.2019 09:40
орион12
24.09.2019 09:40
arturka111
24.09.2019 09:40
lov3snake
24.09.2019 09:40
Популярные вопросы
- Продовження до останньго письма сойчине крило...
2 - Почему учение конфуций не утратило актуальности ?...
2 - Read the text and mark the statements truo (t), falso (f), not stated (ns)....
2 - Решить по информатике. производится звукозапись с 32-битным разрешением,результаты...
1 - Расставить знаки никто в лесу уже и не помнит ела ли раньше лиса зайцев или...
1 - Напишите сочинение на тему дружба и товарищество, и чем отличается...
3 - Скажите , почему в в первой и второй строчке у po4 стоит - и 2-, а в таблице...
2 - Туристы за три дня должны были пройти некоторое расстояние. в первый день...
1 - Определите общую в судьбе руководителей крестьянских восстаний во франции...
2 - Сочинение про новогодние праздники с метафорой, олицетворением, фразеологизмом,...
2
begin
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.