Question

Помогите написать программу на Паскале 15 вариант заранее спасибо

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandomReal(n, -99, 99);

 a.Transform(p -> Round(p, 2));

 a.Println;

 var S := ReadReal('S =');

 var i := a.Select((v, i) -> (Abs(v - S), i)).MaxBy(p -> p[0])[1];

 Writeln('Значение ', a[i], ', номер в массиве ', i+1)

end.