Сортировка.................
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода
a.Println;
// элементы, кратные трем, упорядочить по убыванию
// прочие оставить на своих местах
var v := a.Select((v, i) -> (v, i))
.Where(t -> t[0] mod 3 = 0)
.OrderByDescending(t -> t[0])
.ToArray;
var w := v.Select(t -> t[1]).Sorted.ToArray;
for var i := 0 to w.High do
a[w[i]] := v[i][0];
a.Println
end.
Const n = 20;
var a: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if(i mod 3 <> 0) then write(a[i], ' ');
<span>end.
const n = 18;
var a: array[1..n] of integer;
i, max, fir: integer;
begin
max := 1;
fir := 0;
for i := 1 to n do
begin
read(a[i]);
if(fir = 0) and (a[i] > 0) then fir := i;
if(a [i] < 0) and (a[max] < a[i]) then max := i;
end;
i := a[max];
a[max] := a[fir];
a[fir] := i;
for i := 1 to n do
write(a[i], ' ');
<span>end.</span></span>