Дополни предложение, в пустое место впиши (скопируй) правильный ответ из списка, данного ниже. собственную - id1028125220210403 от Стариат 03.04.2021 19:56

Question

Информатика: Дополни предложение, в пустое место впиши (скопируй) правильный ответ из списка, данного ниже. собственную (внутреннюю) память человека, можно назвать , потому что содержащаяся в ней информация воспроизводится достаточно быстро. долговременная память оперативной запоминать, сохранять и в нужный момент доставать (воспроизводить) нужную информацию оперативная(ой) память(ю) человека, можно назвать оперативной, потому что содержащаяся в ней информация воспроизводится достаточно быстро память доставать

Стариат · Accepted Answer

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

MOGZ ответил