<span>read - оставляет курсор после прочтения на этой же строке</span>
<span><span>readln - переводит курсор на следующую строку</span></span>
<span>нужно найти в массиве минимальный элемент из тех, которые не меньше 180. Это стандартная задача, она решается примерно так:[pre2] const N = 10; var A: array[1..N] of integer; k: integer; ... min := MaxInt; { записываем в min большое число, здесь - больше 200 } for k:=1 to N do if (A[k] >= 180) and (A[k] < min) then min := A[k]; writeln(min); [/pre2]</span>
Var
x,y:real;
begin
Write('Введите координаты точки: ');
Read(x,y);
if (y>=-x*x) and (y>=-x-2) and (x<=0) then Writeln('Входит')
else Writeln('Не входит')
end.
Тестовое решение
Введите координаты точки: -1 -0.5
Входит
Могу скинуть ответы на весь этот тест. ну а в этом вопросе ответ а)