Question

1. Определите количество отрицательных элементов массива. Массив состоит из 10 элементов. Заполнение массива с клавиатуры.
2. Найти наименьший нечетный элемент. Массив состоит из 10 элементов. Заполнение массива рандомом.

Answer 1

begin

 // 1

 var a:= ReadArrInteger(10);

 a.Count(p -> p < 0).Println;

 // 2

 var b := ArrRandom(10, -30, 50);

 b.Println;

 b.Where(p -> p.IsOdd).Min.Println

end.