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

retul retul    1   06.08.2019 19:40    1

Ответы
666223 666223  02.08.2020 09:25
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика