Question

ПОМОГИТЕ, ПОЖАЛУЙСТА
1. Создать массив вещественных чисел. Выбрать среди отрицательных чисел наименьшее значение. Вывести на экран: исходный массив, координату найденного элемента.
2. Создать массив целых чисел. Найти сумму нечетных элементов массива. Вывести результат работы на экран.

Answer 1

===== 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.