Дан целочисленный массив из 20 элементов. элементы массива могут принимать целые значения от -10000 до 10000 включительно. опишите на языке программирования pascal алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых нечётна и положительна. под парой подразумевается 2 подряд идущих элемента массива. const n=20; var a: array[1..n] of integer; i,j,k: integer; begin for i: =1 to n do readln(a[i]);
138
380
Ответы на вопрос:
Const n = 20; var a: array[1..n] of integer; i, j, k: integer; begin for i : = 1 to n do readln(a[i]); for j : = 1 to n-1 do if((a[j] + a[j+1]) > 0) and ((a[j] + a[j+1]) mod 2 < > 0) then inc(k); writeln('кол-во пар: ', k); end.
Популярно: Информатика
-
danillirka19.04.2022 16:24
-
Ritochkа02.04.2023 04:54
-
3344227p06s5705.10.2022 00:55
-
kraken4508.02.2020 03:55
-
Nastenok12228.04.2020 21:04
-
Tooopo128.10.2020 03:10
-
Тим977516.05.2021 22:27
-
Куйтвой23.03.2022 05:50
-
artemssh205.01.2020 13:20
-
АнютаАс01.02.2021 16:27