Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения...

Question

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых чётна, а произведение больше 80. Под парой подразумевается два подряд идущих элемента массива. Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. const N = 20; var a: array [1..N] of longint; i, j, k: longint; begin for i := 1 to N do readln(a[i]); ... end.

Answer 1

const N = 20;  

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

i, j, k: longint;  

begin  

for i := 1 to N do  

readln(a[i]);

k:=0;

for i:=1 to N-1 do

 if ((a[i]+a[i+1]) mod 2 = 0) and  

    ((a[i]*a[i+1]) > 80) then

     begin

       inc(k);

       writeln(a[i],' ',a[i+1])

     end;

write('count: ',k);

end.