Question

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

Answer 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.Println
end.

Пример
n= 20
77 8 10 -7 -45 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59
k= 5
77 8 10 -7 1 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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