Написать программу на Паскале для решения следующей задачи: Дан массив из 20 элементов. Необходимо посчитать количество пар элементов, в которых есть хотя бы 1 нечетный элемент. Под парой элементов считать 2 рядом стоящих элемента.
Написать программу на Паскале для решения следующей задачи: Дан массив из 20 элементов. Необходимо посчитать количество пар элементов, в которых есть хотя бы 1 нечетный элемент. Под парой элементов считать 2 рядом стоящих элемента.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CountPairs;
var
arr: array[1..20] of integer;
i, pairs: integer;
begin
pairs := 0;
for i := 1 to 20 do
begin
write('Enter element ', i, ': ');
readln(arr[i]);
end;
for i := 1 to 19 do
begin
if (arr[i] mod 2 <> 0) or (arr[i+1] mod 2 <> 0) then
pairs := pairs + 1;
end;
writeln('Number of pairs with at least one odd element: ', pairs);
end.