Создать два одномерных массива, состоящих из целых чисел. Элементы массива вводятся с клавиатуры. В первом массиве найти номер первого нечетного элемента массива. Во втором массиве найти первый четный элемент массива. Решить на Pascal ABC (При решении задач обязательно использовать одномерные массивы и процедуры или функции работы с одномерными массивами.)

Предыдущий
вопрос Следующий
вопрос

program OddEvenElements;

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

type
IntArray = array[1..N] of integer;

procedure FillArray(var arr: IntArray);
var
i: integer;
begin
for i := 1 to N do
begin
write('Введите элемент массива arr[', i, ']: ');
readln(arr[i]);
end;
end;

function FindFirstOddElementIndex(arr: IntArray): integer;
var
i: integer;
begin
for i := 1 to N do
begin
if arr[i] mod 2 <> 0 then
begin
FindFirstOddElementIndex := i;
Exit;
end;
end;
FindFirstOddElementIndex := -1;
end;

function FindFirstEvenElement(arr: IntArray): integer;
var
i: integer;
begin
for i := 1 to N do
begin
if arr[i] mod 2 = 0 then
begin
FindFirstEvenElement := arr[i];
Exit;
end;
end;
FindFirstEvenElement := -1;
end;

var
arr1, arr2: IntArray;
indexOdd, firstEven: integer;

begin
FillArray(arr1);
FillArray(arr2);

indexOdd := FindFirstOddElementIndex(arr1);
firstEven := FindFirstEvenElement(arr2);

writeln('Номер первого нечетного элемента в первом массиве: ', indexOdd);
if indexOdd = -1 then
writeln('В массиве arr1 нет нечетных элементов')
else
writeln('Первый четный элемент во втором массиве: ', firstEven);
if firstEven = -1 then
writeln('В массиве arr2 нет четных элементов');
end.