Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива.
Паскаль
const n = 40;
var
a: array [0..n-1]
of integer;
i, j, k: integer;
begin
for i:=0 to n-1 do
readln(a[i]);
...
end.

count = int(input('Введите кол-во элементов в массиве: '))

my_list = [int(input('Введите число: ')) for i in range(count)]

print(my_list)

max_num = max(my_list)

min_num = min(my_list)

my_list[my_list.index(max_num)], my_list[my_list.index(min_num)] \

   = my_list[my_list.index(min_num)], my_list[my_list.index(max_num)]

print(my_list)

Объяснение

В переменную count вводится, сколько чисел будет в списке

В my_list записываются все числа

Методы max, min узнают минимальный и максимальный элемент списка

Метод index узнаёт, на каких местах стоят эти элементы

В последней строке делаем обмен значениями переменных (a, b = b, a)

program raf105;

const

 n = 10;

var

 a,b,c: array[1..n] of integer;

 i,j,x,max,mpos,b1,c1: integer;

begin

write('Введите максимальное число: ');

readln(x);

writeln('Заполните массив из ',n,' элементов');

for i:=1 to n do

begin

 readln(a[i]);

 if a[i] > x

   then begin

     b1:= b1+1;

     b[b1]:= a[i];

   end

   else begin

     c1:= c1+1;

     c[c1]:= a[i];

   end;

end;

for i:=1 to c1 do

begin

 max:= -10000;

 for j:=i to c1 do

   if c[j] >= max

     then begin

       max:= c[j];

       mpos:= j;

     end;

 c[mpos]:= c[i];

 c[i]:= max;

end;

for i:=1 to b1 do

 a[i]:= b[i];

for i:=1 to c1 do

 a[i+b1]:= c[i];

write('Отсортированный массив: ');

for i:=1 to n do

 write(a[i],' ');

end.