1. создать массив вещественных чисел. выбрать среди отрицательных чисел наименьшее значение. вывести на экран: исходный массив, координату найденного элемента.
2. создать массив целых чисел. найти сумму нечетных элементов массива. вывести результат работы на экран.

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

- 1 -

begin

 var n := ReadInteger('n =');

 var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;

 a.Println;

 var i := a.IndexMin;

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

end.

- 2 -

begin

 var n := ReadInteger('n =');

 var a:= ArrRandom(n, -99, 99);

 a.Println;

 Println('Сумма нечетных элементов', a.Where(p -> p.IsEven).Sum)

end.