Помогите пожалуйста решить !!! Вывести на экран индексы нечётных элементов масси?

Помогите пожалуйста решить !!! Вывести на экран индексы нечётных элементов масси??а состоящего из 45-ти элементов случайных чисел в диапазоне от 15до 85 П.с-Паскаль 9класс
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 begin   var a:=ArrRandom(45,15,85); a.Println;   Writeln('Индексы нечетных элементов');   a.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1.IsOdd).     Select(x->x.Item2).Println; end. Тестовое решение: 72 49 49 67 56 85 62 36 53 15 25 33 48 63 71 38 43 57 17 78 41 31 56 55 75 71 54 61 46 63 33 53 68 30 28 28 65 25 68 24 51 44 80 54 32 Индексы нечетных элементов 2 3 4 6 9 10 11 12 14 15 17 18 19 21 22 24 25 26 28 30 31 32 37 38 41
Не нашли ответ?
Ответить на вопрос
Похожие вопросы