Помогите написать программу на паскале

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от - 10000 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых четна и положительна. Под парой подразумевается два подряд идущих элемента массива.

Question

Информатика

Светуша

20 апреля, 21:12

Помогите написать программу на паскале

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от - 10000 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых четна и положительна. Под парой подразумевается два подряд идущих элемента массива.

+1

Ответы (1)

Знаете ответ на вопрос?

Афросинья · Answer 1

Program gt;

var a:array[1 ... 20]of longint;

i, h:longint;

begin

for i:=1 to 20 do

read (a[i]) ;

for i:=1 to 19 do

if ((a[i]+a[i+1]>0) and ((a[i]+a[i+1]) mod 2=0)) then h:=h+1;

writeln (h) ;

end.