Вот проверила все правильно
Var ar:array[1..10] of integer;
i:integer;
begin;
for i:=1 to 10 do
begin;
write('Введите ',i,' элемент массива:');
readln(ar[i]);
if ar[i]<0 then ar[i]:=abs(ar[i]);
end;
writeln('Final array:');
for i:=1 to 10 do
write(ar[i]:4);
<span>end.</span>
НЕ(x<7) и НЕ(x>=18) ⇔ (x>=7) и (x<18)
x ∈ [7; 18)
Перевод показан в прилагаемом файле.
2237(10)<span> = 100010111101(</span><span>2)</span>