Дан массив из тридцати элементов. проверьте, есть ли среди элементов стоящих на четных местах такой, значение которого лежит в интервале от a до b. если такой элемент существует - напишите yes, иначе напишите no. формат входных данных на первой строке через пробел записаны целые числа arri (|arri|≤1000) — элементы массива. на второй строке записано целые положительные числа a и b. формат выходных данных строка, содержащая запись yes либо no

Var   i, x, y: integer;   a: array[1..30]of integer;   begin   readln(x, y);   for i : = 1 to 30 do read(a[i]);   for i : = 1 to 30 do if (i mod 2 = 0) and (a[i] > = x) and (a[i] < = y) then     begin       write('yes');         exit;       end;   write('no'); end.

Целая часть от деления   остаток от деления15 div 2 = 7                       15 mod 2 = 17 div 2 = 3                           7 mod 2 = 13 div 2 = 1                            3 mod 2 = 11 div 2 = 0                            1 mod 2 = 1 остаток от деления записываем в обратном порядке. получаем число в 2-ой системе счисления: 1111 15 = 1111(2) целая часть от деления   остаток от деления58 div 2 = 29                      58 mod 2 = 029 div 2 = 14                      29 mod 2 = 114 div 2 = 7                      14 mod 2 = 07 div 2 = 3                          7 mod 2 = 13 div 2 = 1                          3 mod 2 = 11 div 2 = 0                          1 mod 2 = 1 остаток от деления записываем в обратном порядке. получаем число в 2-ой системе счисления: 11101058 = 111010(2)