Дан массив из тридцати элементов. проверьте, есть - вопрос №6148911 от dashalimonka2 02.04.2022 04:01

Question

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

dashalimonka2 · Answer

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.