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

мак189 мак189    1   03.09.2020 22:28    0

Ответы
mrfurkan mrfurkan  15.10.2020 17:15

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика