Question

Напишите программу которая заполняет массив из 10 элементов случайными числами на отрезке [50;150] и находит в нем минимальный и максимальный элементы и их номера.
На языке паскаль,пожалуйста помогите.

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(10, 50, 150);

 a.Println;

 var (imin, imax) := (a.IndexMin, a.IndexMax);

 Println('Минимальный элемент номер', imin + 1, 'равен', a[imin]);

 Print('Максимальный элемент номер', imax + 1, 'равен', a[imax])

end.