помогите написать программу на паскале
Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от -10000 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых четна и положительна. Под парой подразумевается два подряд идущих элемента массива.
Ответы на вопрос
Ответил kage1998
0
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.
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.
Новые вопросы
Русский язык,
2 года назад
Алгебра,
2 года назад
Математика,
9 лет назад
Алгебра,
9 лет назад
Математика,
9 лет назад