// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,1,10); a.Println;
a:=a.Reverse.ToArray; a.Println;
end.
Пример:
n = 10
5 4 2 1 3 8 2 2 5 2
2 5 2 2 8 3 1 2 4 5
var i,s:real;
begin
i:=3;
s:=1;
while i<=29 do begin
s:=s*i;
i:=i+0.2;
end;
writeln(s);
end.
Это же слишком элементарно, чтобы самому не сделать...
var x:real;
begin
writeln('vvedi x:');
readln(x);
writeln('y=',2*x-5/x-1);
end.