Написать программу на паскале
20) Заменить k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный

Ну это уже Ваша проблема. Тогда надо было указывать требуемый диалект Паскаля.

С этим бороться на уровне школьников не получится. Это ведь не только по информатике преподают нечто замшелое.

А зачем бороться? Если новое достойно - само дорогу пробьет.

Главное - чтобы о нем знали, поэтому где возможно, надо его применять.

А безосновательную пометку о нарушении, которую сделал этот неразумный школьник, все равно снимут: он лишь глупость свою показал. Зато другие, быть может, потом по поиску найдут решение и увидят, как это сделать.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  var k:=ReadInteger('k=')-1;  a[k]:=a[k].IsEven?0:1; a.Printlnend.Примерn= 2077 8 10 -7 -45 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59k= 577 8 10 -7 1 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59