Question

Составим программу нахождения в массиве а(20) минимального элемента в интервале с 1 по 6 и максимального элемента в интервале с 7 по 10

Answer 1

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018Внимание! Если программа не работает, обновите версию!

begin

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

 a.Println;

 a[:6].Min.Println;

 a[6:10].Max.Println

end.

Пример

35 45 37 -46 38 22 15 32 -6 31 49 46 -14 3 -11 48 47 50 -36 33

-46

32