Укажите расположение множеств на схеме. а)кашалоты б)животные в)зубатые киты г) млекотпитающие
117
338
Ответы на вопрос:
//в числовой последовательности из n произвольных целых чисел определить количество пар соседних элементов, //сумма модулей которых равна модулю заданного числа м. function countpair(n, m: integer; a: array of integer): integer; begin result : = 0; assert(n > = 0); for var i : = 0 to a.length - 2 do begin if abs(a[i]) + abs(a[i+1]) = abs(m) then result += 1; end; end; begin var n : = readinteger; var m : = readinteger; var a: array of integer; setlength(a, n); for var j : = 0 to a.length - 1 do begin a[j] : = readinteger; end; write('количество пар = ', countpair(n, m, a)); end.
Популярно: Информатика
-
Fondon13.08.2021 03:49
-
lew806.04.2020 20:41
-
titomeister09.07.2021 03:01
-
arty18111817.04.2023 18:36
-
kanumah219.09.2022 13:27
-
LaGGeRiSTiK11.10.2022 00:41
-
Makson3D21.03.2022 07:40
-
Dushanbe200327.02.2021 12:30
-
sarranuryeva01.06.2023 14:16
-
nutka198024.05.2023 14:41