Question

1) Массив из 10 целых элементов заполнен случайными числами из промежутка [10, 100], печать в строчку. Найти минимум в первой половине массива и максимум во второй половине массива и их номера.

2) Массив из 10 целых элементов заполнен случайными числами из промежутка [10, 100], печать в строчку. Найти минимальное число, делящееся на 3, среди полученных чисел.


Ребята, помогите пожалуйста

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, 10, 100);

 a.Println;

 // 1

 var k := a.Length div 2;

 var i := a[:k].IndexMin;

 Writeln('Минимальный в первой половине: ', a[i],

     ' с номером ', i + 1);

 i := a[k:].IndexMax;    

 Writeln('Максимальный во второй половине: ', a[k + i],

     ' с номером ', k + i + 1);

 // 2

 Println('Минимальное число, делящееся на 3, равно',

     a.Where(p -> p mod 3 = 0).Min)

end.