Дан массив из 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.