Question

Описать функцию MaxN(A, N) целого типа, находящую номер максимального элемента вещественного массива A размера N. С помощью этой функции найти номера максимальных элементов массивов A, B, C размера NA, NB, NC соответственно.
(Pascal)

Answer 1

##

function MaxN(a: array of real; n: integer) := a.IndexMax + 1;

var na := ReadInteger('NA =');

var a := ArrRandomReal(na, -1000, 1000);

a.Transform(t -> Round(t, 1));

a.Println;

Println('Номер максимального элемента равен', MaxN(a, na));

var nb := ReadInteger('NB =');

var b := ArrRandomReal(nb, -100, 100);

b.Transform(t -> Round(t, 1));

b.Println;

Println('Номер максимального элемента равен', MaxN(b, nb));

var nc := ReadInteger('NC =');

var c := ArrRandomReal(nc, -250, 500);

c.Transform(t -> Round(t, 1));

c.Println;

Print('Номер максимального элемента равен', MaxN(c, nc));