Задача 1. Задан одномерный целочисленный массив размерности 7. Найти и вывести на экран его элементы, которые меньше 12. Задача 2. Задан одномерный целочисленный массив размерности 10. Вывести на экран номера положительных элементов этого массива Если выполните хотя бы 1 из 2 то буду считать что справились, даю 40 баллов!
Answers & Comments
// 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.