Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива.
Мне надо ответ по Pascal ABC
Мне надо ответ по Pascal ABC
More Questions From This User See All
Answers & Comments
Недостающий фрагмент:
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); // выводим на экран количество пар
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i:=1 to N do
readln{a};