В числовой последовательности из N произвольных целых чисел определить количеств...

July 2022 1 11 Report

В числовой последовательности из N произвольных целых чисел определить количество пар соседних элементов, сумма модулей которых равна модулю заданного числа М.
Спасибо)

Answers & Comments

Laebro //В числовой последовательности из 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.

1 votes Thanks 1

Answers & Comments

v matriceobnulit elementy celaya chast kotoryh yavlyaetsya chetnym chislompomogite

opredelit skolko raz posledovatelnost iz n proizvolnyh chisel menyaet znak s

opredelit summu naibolshego i vtorogo po znacheniyu naimenshego elementov paskal

kak v paskale eto sdelat

opredelit dva naibolshih chisla v posledovatelnosti i najti ih chastnoene cherez

dany tekstovyj fajl i nekotoroe slovo napechatajte te stroki fajla kotorye sode

pomogite pozhalujsta eto paskal napishite programmu

v chislovoj posledovatelnosti iz n proizvolnyh celyh chisel opredelit kolichestv1b42ddf1044d08b75cc5bf184f9f560d 39424

pomogite pozhalujsta eto paskal

proizvedenie srednih arifmeticheskih massivov a i vpaskal pomogite

рекомендуемые вопросы

Helpful Links

Helpful Social