Question

Задача 1. Задан одномерный целочисленный массив размерности 7. Найти и вывести на экран его элементы, которые меньше 12. Задача 2. Задан одномерный целочисленный массив размерности 10. Вывести на экран номера положительных элементов этого массива Если выполните хотя бы 1 из 2 то буду считать что справились, даю 40 баллов!

Answer 1

// PascalABC.NET 3.6.3

begin

 var a := ArrRandom(7, -20, 30);

 a.Println;

 a.Where(p -> p < 12).Println;

 Writeln;

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

 b.Println;

 b.Indices((v, i) -> v > 0).Select(p -> p + 1).Print

end.