Pascal
для массива x из 30 элементов найти наибольший элемент, после чего нормировать все элементы массива, поделив их значения на значение наибольшего элемента. значение наибольшего элемента, его номер вывести на экран.

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

begin

 var x := ArrRandomReal(30, -99, 99);

 x.Transform(p -> Round(p, 1));

 x.Println;

 var imax := x.IndexMax;

 var xmax := x[imax];

 Println('Max =', xmax, '   его номер', imax + 1);

 x.Transform(p -> p / xmax);

 x.Println

end.