Например так:
#!/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"
Только по хорошему нужна проверка введенных значений еще.
Смотри во вложенном pdf-документе.
В задаче не указан шаг изменения х , допустим он равен 1варX и Y:реальные;начатьх:=1;пока х<=10 делатьначатьy:=1/x-5;writeln(г:8:2);х:=х+1;конца;конец.
Ответ 33051 в восьмеричной Система счисления