// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a.SortedDescending.Println;
end.
<u><em>Тестовое решение</em></u>
n=15
-64 -10 56 -78 35 -53 61 -12 17 29 -45 -13 73 24 1
73 61 56 35 29 24 17 1 -10 -12 -13 -45 -53 -64 -78
<span><span>начало S_{1}=10000; k=1,05; S_{2}=S_{1}; t=0,
если не S_{2} >= 2*S_{1},
тогда t++; S_{2} = k*S_{2};
вернуться к условию,
иначе
вывод t конец </span></span>
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,q):=ReadReal2('Введите начальный член и знаменатель:');
var n:=ReadInteger('Введите количество членов прогрессии:');
var s:=a;
for var i:=2 to n do begin a*=q; s+=a end;
Writeln('Сумма членов прогрессии равна ',s)
end.
<u>Пример</u>
Введите начальный член и знаменатель: 1.25 0.13
Введите количество членов прогрессии: 15
Сумма членов прогрессии равна 1.43678160919533