Дан целочисленный массив из 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]);
girina210482
1
21.06.2019 10:20
2
Другие вопросы по теме Информатика
йфцыяувчкасепм
28.11.2019 15:07
romantik17lol
27.07.2019 08:40
mskobetsnata
19.10.2020 09:49
Оксана291103
19.10.2020 09:48
ruslikua3
16.04.2019 22:50
Lera5457
16.04.2019 22:50
Arituk
16.04.2019 22:50
ИваПоля
16.04.2019 22:50
Dadahkkkaaa001
16.04.2019 22:50
Популярные вопросы
- Рабочая тетрадь понаморева строение корня проростка...
2 - Нужно придумать 15 слов повелительного наклонения с приставкой -по. !...
3 - Звезда звездное, ярость яростный, гигант гигантский, счастливый счастье. где проверяемое...
2 - Скласти речення з прямою мовою зі словосполученнями( покласти олівець,змусити...
1 - Юра разрезал огромную пиццу на 10 кусков. затем он взял один из кусков и разрезал...
1 - Сравнить больше или меньше : /-√7/ и /-2√3/...
3 - Сколько граммов олова в кучке свинца, в котором свинца на 30 гр. меньше,чем олова?...
3 - Число 39 представить в виде положительных слагаемых так, чтобы и произведение...
2 - Сказка приемыш вопрос почему тарас не подрезал птице крылья...
1 - Для функции y=x6 найдите: значении y при x=-1;...
1
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.