Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5)
Program G;
Uses Crt;
Const N=10;
Var i: integer; mass: array [1..n] of integer;
Begin
Randomize;
ClrScr;
Writeln('Исходный массив из 10 чисел диапозона (-5;5):');
For i:=1 to N do
Begin
Mass[i]:=Random(11)-5;
Write(Mass[i]:4);
End;
Writeln;
Writeln('Исходный массив после замены всех отрицательны на -1:');
For i:=1 to N do
If mass[i]<0 then mass[i]:=-1;
For i:=1 to N do write(Mass[i]:4);
Readln;
<span> End.</span>
DD(16) = 16^1*13 + 16^0<span>*13 = 208 + 13 = 221(10)
</span>337(8) = 8^2*3 + 8^1*3 + 8^0<span>*7 = 192 + 24 + 7 = 223(10)
</span>x=222(10)=11011110(<span>2)</span>
Program c2_2;
var a: integer;
begin
write('увядіте цэлы лік');
readln(a);
if (a mod 2=0) then a:=a div 2;
write (a);
end.
CLS
INPUT "n = ", n
P = 1
FOR i = 1 TO 2 * n
P = P * i
NEXT i
PRINT "P = "; P
END