Например так:
#!/usr/bin/perl
for(1..12){@arr[$_]=int(rand(100))};
print "@arr\n";
print "Write first element:"; chomp($n1=<>);
print "Write second element:"; chomp($n2=<>);
(@arr[$n1], @arr[$n2])=(@arr[$n2], @arr[$n1]);
print "\
[email protected]\n"
Только по хорошему нужна проверка введенных значений еще.
Шарик
<span>Барс
Петя
Вова
Дружок
Маша
Прнцесса
</span>
Нет, не могут.
Несколько выходят из блоков циклов и условия.
<span><span>техническое средство, с помощью которого происходит передача информаци-</span>телевидение</span>