// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
Range(1,20).Aggregate(biginteger(1),(p,x) -> p*x).Println;
end.
<u>Ответ = 2432902008176640000</u>
Var
x,z,c:Integer;
begin
readln(x,z);
if x < 5 then
c:= x + z;
if (5 <= x) and (x <= 10) then
c:=2*x-3*z;
if x > 10 then
c:= 25*x+z*25;
writeln(c);
end.
АЖЕБДВГ как-то так пишу чтобы набрать символы
Var a: array[1..10] of integer;
<span> b: array[1..10] of real;
</span><span> i,n: integer;
</span><span> s: real;
</span><span>begin
</span><span> s:=0; n:=0;
</span><span> write('массив a: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> read(a[i]);
</span><span> if a[i]<0 then
</span><span> begin
</span><span> s:=s+a[i];
</span><span> n:=n+1;
</span><span> end;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> s:=s/n;
</span><span> writeln;
</span><span> writeln('среднее арифметическое отрицательных: ',s);
</span><span> writeln('количество отрицательных: ',n);
</span><span> write('массив b: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> if a[i]<0 then b[i]:=s
</span><span> else b[i]:=a[i];
</span><span> write(b[i]:7:3);
</span><span> end;
</span><span>end.
</span>массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
<span>среднее арифметическое отрицательных: -5.2
</span><span>количество отрицательных: 5
</span><span>массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200</span><span> 5.000
</span><span>
</span>
