// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),-30,50);
a.Println(', ');
Writeln('max-min=',a.Max-a.Min)
end.
<u><em>Тестовое решение:</em></u>
n= 10
-19, 50, 8, -12, -26, 50, -28, -9, -7, 42
max-min=78
Представленную в двоичном виде(ДВОИЧНЫЙ КОД)
В пятеричной системе 0.33=0.13111111111
в пятнадцатеричной 0,33=0,4E3B3B3B3B3
Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>