Question

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

Answer 1

// PascalABC.NET 3.6

begin

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

 var (imax, imin) := (0, 0);

 for var i := 1 to a.High do

 begin

   a[i].Print;

   if a[i] > a[imax] then

     imax := i

   else if a[i] < a[imin] then

     imin := i

 end;

 Writeln;

 $'Минимальный элемент номер  {imin+1} равен {a[imin]}'.Println;  

 $'Максимальный элемент номер {imax+1} равен {a[imax]}'.Println;  

end.