Дан массив из n элементов определить колличество элементов имеющие четные порядковые номера и являющиеся нечетными номерами

Uses crt; var m: array[1..1000] of integer; i,j: integer; begin clrscr; writeln('введите размер массива '); readln(n); writeln('массив: '); for i: =1 to n do begin m[i]: =i; write(m[i],' '); if i mod 2 =0 then j: =j+1; end; writeln; writeln('количество элементов с четными номерами = ',j); readkey; end.

//если число дано через пробелы(как в условии: 1 234 567) begin   var a : = readinteger;   var b : = readinteger mod 100;   var c : = b div 10;   b : = b mod 10;   readinteger;   writeln(a + b + c); end. пример: 1 234 567 8 //если число дано строкой begin   var a : = readstring;   var b : = new integer[a.length];   for var i : = 1 to a.length do       b[i - 1] : = a[i].todigit;   writeln(b[0] + b[2] + b[3]); end. пример: 6894354 19

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходная матрица ***');   var a: =matrrandom(5,6,-30,30);   a.println(4); writeln(4*a.colcount*'-');   if a.elementsbyrow.any(t-> t=0) then writeln('есть нулевые элементы')   else writeln('нет нулевых элементов') end. пример *** исходная матрица ***   16  -8 -16    6  24  -9     1  -9  26  30    0    5     7  23  10    3 -15  -4     8  18  -3 -14 -23  18   -6  27  -1  20  18 -25 есть нулевые элементы