Question

Помогите с решением задания по PASCAL !!! СРОЧНО, ПОЖАЛУЙСТА!! ПОМОГИТЕ "PASCAL ABC"

Answer 1

===== 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.