Нужно пояснение структуры программы! Program sjsnjkm;
begin
var a:=ArrRandom(12,-12,12); a.Println;
var b:=a.Batch(a.Length div 3).Select(x->x.Reverse);
var k:=0;
foreach var e1 in b do
foreach var e2 in e1 do begin a[k]:=e2; Inc(k) end;
a.Println
end.​

SAVAAVAAS    2   09.03.2021 08:17    0