<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,0,20); a.Println;
var k:=ReadInteger('С какого элемента сортировать?');
Assert(k.Between(0,n-1),'Введено недопустимое значение');
a:=(a?[:k-1]+a[k-1:].OrderByDescending(t->t)).ToArray; a.Println
end.
<u>Пример</u>
n= 13
13 10 4 18 4 1 19 9 14 12 6 15 7
С какого элемента сортировать? 5
13 10 4 18 19 15 14 12 9 7 6 4 1
(смотрите рисунок)
AC=ADEC=3+1+1=5
ответ 2) 5
3) 20
4)10
На другие ответить не могу, т.к. совершенно непонятен код. Перечитайте задание
Var
a, min: integer;
begin
min :=30000;
repeat
readln(a);
if (a mod 3 = 0) and (a < min) and (a <> 0) then
min := a;
until a = 0;
writeln(min);
<span>end.</span>
Div дивергенция
cos косинус
sin синус
tn тангенс
ctg катангенс
arctn арктангенс
arcctg арккатангенс