Pascal
для массива x из 30 элементов найти наибольший элемент, после чего нормировать все элементы массива, поделив их значения на значение наибольшего элемента. Значение наибольшего элемента, его номер вывести на экран.
для массива x из 30 элементов найти наибольший элемент, после чего нормировать все элементы массива, поделив их значения на значение наибольшего элемента. Значение наибольшего элемента, его номер вывести на экран.
Answers & Comments
Verified answer
===== 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.