<em>// PascalABC.NET 3.3, сборка 1570 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(11,-29,150); a.Println;
Writeln('Ср.арифм. положительных: ',a.Where(x->x>0).Average:0:3);
Writeln('Ср.арифм. отрицательных: ',a.Where(x->x<0).Average:0:3);
Swap(a[1],a[6]);
Writeln('Результирующий массив'); a.Println
end.
<u>Пример</u>
91 109 113 119 17 95 41 131 -15 117 -14
Ср.арифм. положительных: 92.556
Ср.арифм. отрицательных: -14.500
Результирующий массив
91 41 113 119 17 95 109 131 -15 117 -14
0,2+0,3=0,5
0,5+0,4=0,9
0,9+0,5=1,4
1,4+1,9=3,3
3,3+2=5,3
Ответ:5,3
Var a:array[1..10] of integer;
i,m,k,p:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(-10,10);
write(a[i]:3);
end;
writeln;
read(k,m);
for i:=k to (k+m) div 2 do begin
p:=a[i];
a[i]:=a[k+m-i];
a[k+m-i]:=p;
end;
for i:=1 to 10 do
write(a[i]:3);
<span>end.</span>