Программа на языке программирования Pascal:
var
x, y: real;
begin
read(x, y);
if (y > sqr(x)-2) and ((y < x) or (y < -x)) then
writeln('YES')
else
writeln('NO')
end.
<span>Язык Pascal, работа на массиве. с заполнением с клавиатуры. Ты заполняешь 9 элементов ( через enter ), а он тебе выводит тоже самое, только с противоположными знаками</span>
Var x: array[1..9] of integer;
Var i,h:integer;
Begin
for i:= 1 to 9 do
Begin;
Readln(h);
x[i] := -1*h;
end;
for i:=1 to 9 do
Begin;
Writeln('Элемент номер ',i,' массива: ',x[i]);
end;
readln(x);
end.
Что именно, какое, вдруг там разные