Дан массив x(7). найти номера нечётных элементов, стоящих на чётных местах (паскаль)

Амне еще более лениво, поэтому решение на pascalabc.net 3.2 зачем напрягаться, если автор жадный и за 5 ставит? begin   var x: =arrrandom(7,-20,20); x.println;   x.select((e,i)-> (e,(a-> (a[0] mod 2< > 0) and (a[1] mod 2=       select(a-> a[1]+1).println end. пример 20 9 13 -9 7 -8 -6 3 5

Мне лениво каждый раз вводить значения от руки, поэтому массив заполняется рандомно (в нет четкого указания) но если нужен ввод с клавы, его нетрудно заменить: вместо       a[i]: =random(20);         write(a[i]: 4)  надо       readln (a[i]) program aaa; var a: array[1..7] of integer; i: byte; begin     randomize;   //запускаем генератор случайных чисел       // формируем и одновременно выводим массив     writeln ('исходный массив: ');   for i: =1 to 7 do     begin       a[i]: =random(20);   //рандомное значение        write(a[i]: 4)   //вывод массива     end;   writeln;       //проверяем условие и выводим номера нужных элементов:   writeln ('номера нечётных элементов, стоящих на чётных местах : ');   writeln;   for i: =1 to 7 do     if ((i mod 2)=0) and ((a[i] mod 2)=1)       then writeln (i: 3)  end. результат работы программы: исходный массив:   13   16   7   11   11   5   17 номера нечётных элементов, стоящих на чётных местах :   4   6

2^28 бит=268 435 456 бит=33 554 432 байт=32 768 кб=32 мб