Оставить программу в паскале: дан одномерный массив заменить все чётные элементы массива нулём

188

323

Посмотреть ответы 2

Ответы на вопрос:

Нидл

Информатика

4,8(97 оценок)

// pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin var a: =arrrandom(readinteger('n='),1,99); a.println; for var i: =0 to a.length-1 do if odd(i) then a[i]: =0; a.println end. тестовое решение: n= 15 86 25 63 95 28 78 30 41 26 3 52 30 46 74 84 86 0 63 0 28 0 30 0 26 0 52 0 46 0 84