Дан массив из n элементов, заменить элементы которые равны индексу - нулем. Выполнить в виде программы на Паскале.

program zz1;

const n=10; / /задаем количество элементов в массиве

var mas:array[1 ... n] of integer;

i, k:integer;

begin

for i:=1 to n do

mas[i]:=random (10) + 1; / /вводим числа в массив рандомно от 1 до 10

for i:=1 to n do

write (mas[i],' '); / /выводим числа из массива на экран

writeln; / /переходим на новую строку для вывода

for i:=1 to n do

if mas[i]=i then mas[i]:=0; / /проверяем, если число из массива равно его номеру, то вместо числа в массив записываем ноль

for i:=1 to n do

write (mas[i],' '); / /выводим числа из массива на экран еще раз

end.