Создать два одномерных массива, состоящих из целых чисел. Элементы массива вводятся с...

Question

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

Answer 1

//PascalABC.NET 3.1 сборка 1219
const
    n = 10;

begin
    var a := ReadArrInteger('Введите массив А', n);
    //    var a := ArrRandomInteger(n, 0, 50);
    //    Println(a);
    Writeln('первый нечетный - #', a.FindIndex(x -> x mod 2 = 1));
    
    var b := ReadArrInteger('Введите массив B', n);
    //    var b := ArrRandomInteger(n, 0, 50);
    //    Println(b);
    Writeln('первый четный - #', b.FindIndex(x -> x mod 2 = 0));
end.

Comments

Это на PascalABC.NET 3.1 сборка 1219

---

У тебя он работает?И других вариантов решения нет?

---

работтает

---

конечно есть и другие варианты решений

---

Неработает!!!

---

Можешь сделать по другому

---

я уже не могу изменить ответ

---

Давай я тебе дам баллы ,но я кидаю 2 задачу и ты решаешь за 10 баллов

---

а?

---

ты можешь создать задачи с полным обьяснением чего хочешь. но я не гарантирую что буду ее решать. есть и другие решатели