Например так:
#!/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"
Только по хорошему нужна проверка введенных значений еще.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:array of integer := (0,12,3,-5,-6,4,9,0,8);
var sum:= 0;
for var i := 3 to 7 do
if a[i]>5 then
sum:=sum+a[i];
writeln (sum);
end.
Ответ: 9
Program b_3;
const Pi=3.1415926;
var R,S,C:real;
begin
write('введите радиус окружности');
readln(R);
C:=2*Pi*R;
S:=Pi*R*R;
writeln('длина окружности=',C:6:2);
writeln('площадь круга=',S:6:2);
End.
99000099
если нужна прога то вот
program pr_1;var x,c,c1,k,y,max:longint;beginmax:=0;for x:=1000 to 9999 do beginfor y:=1000 to 9999 do beginc:=x*y;c1:=c;k:=0;while c<>0 do begink:=k*10+(c mod 10);c:=c div 10;end;if ((k=c1) and (k>max)) then max:=k;end;end;writeln('ответ:',max);writeln('x=',x);writeln('y=',y);end.
"-" влияет собственно только на знак перед полученным результатом.
=