PascalABC.NET
begin
var n := ReadInteger('Введи длину массива:');
var a := SeqRandomReal(n, 1.0, 99.0).Select(p -> Round(p,1)).ToArray;
a.Println;
var m := ReadInteger('Задайте номер элемента');
if not (m in Range(1, n)) then
begin
Print('Недопустимый номер');
exit
end;
var im := a[:m].IndexMin;
var min := a[im];
Swap(a[im], a[n-1]);
a.Transform(p -> p / min);
a.Println
end.
