Создать два одномерных массива, состоящих из целых чисел. элементы массива вводятся с клавиатуры. в первом массиве найти номер первого нечетного элемента массива. во втором массиве найти первый четный элемент массива. решить на pascal abc (при решении обязательно использовать одномерные массивы и процедуры или функции работы с одномерными массивами.)
144
467
Ответы на вопрос:
//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.
Популярно: Информатика
-
Dangor12319.05.2022 02:59
-
peppapig1223.07.2021 00:43
-
elizavety18.04.2023 11:20
-
айка39524.11.2021 18:53
-
122005140403.05.2023 22:37
-
ХлойкаПрайс09.11.2020 23:14
-
8923275218306.02.2022 21:47
-
Lera545716.06.2020 15:19
-
6г56г20.02.2023 02:07
-
elenakazimirov07.12.2021 23:16