Question

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива. Мне надо ответ по Pascal ABC

Answer 1

Недостающий фрагмент:

k:=0;  

for i:=1 to N-1 do  

if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin

k:=k+1;

end;

writeln(k);

 

Разбор:

k:=0; // переменная для подсчет количества пар элементов.

for i:=1 to N-1 do // запускаем цикл до N-1, чтобы в последнем цикле не было сбоев.

if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin // находим нужную нам пару элементов с помощью условия. Как только находим:

k:=k+1; // увеличиваем переменную, то есть прибавляем уже к  имеющемуся количеству пар еще одну.

end; // Конец цикла

writeln(k); // выводим на экран количество пар

Answer 2

Конечно, вот алгоритм на языке программирования Pascal ABC для нахождения количества пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4:

pascalCopy code
program CountPairs;

const
  N = 20; // Размер массива

var
  arr: array[1..N] of integer;
  i, count: integer;

begin
  // Заполняем массив случайными числами от -10000 до 10000
  Randomize;
  for i := 1 to N do
    arr[i] := Random(20001) - 10000;

  // Инициализируем счетчик пар
  count := 0;

  // Проходим по массиву и считаем пары
  for i := 1 to N - 1 do
  begin
    if (arr[i] + arr[i + 1]) mod 2 = 0 then // Сумма делится на 2
    begin
      if (arr[i] + arr[i + 1]) mod 4 <> 0 then // Но не делится на 4
        count := count + 1;
    end;
  end;

  // Выводим результат
  writeln('Количество пар, где сумма делится на 2, но не делится на 4: ', count);

end.

Этот код создает массив из 20 случайных чисел от -10000 до 10000, затем проходит по массиву и считает пары, в которых сумма делится на 2, но не делится на 4. Результат выводится на экран.