Дан целочисленный массив из 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.
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.