Поделить на 1000 !!!!!!!!!!!!! смотря какое число
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -15, 15);
a.Println;
var i := a.IndexMin;
var m := a[i];
Println('Минимум равен', m);
Print('Номера минимальных элементов:');
a.Indices(p -> p = m).Select(p -> p + 1).Println
end.
Вот лягушка получилась :3
слева сама программка, а справа как получится
F(16)=1111(2)
1(16)=0001(2)
0(16)=0000(2)
9(16)=1001(2)
B(16)=1011(2)
1111 0001 0000 1001 1011 1011
делить на тройки надо с правого края
111 100 010 000 100 110 111 011
каждую тройку перевести в десятичное число
111(2)=1*2^0+1*2^1+1*2^2=7(8)
100(2)=4(8)
010(2)=2(8)
000(2)=0(8)
100(2)=4(8)
110(2)=6(8)
111(20=7(8)
011(2)=3(8)
Ответ 74204673(8)