Будет выведено 5 цифр до запятой и после запятой. Например, если число 12345,6789, то он выведет 12345,6
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var x1:=a.Where(x->x>0).Min;
var i1:=a.FindIndex(x->x=x1);
var x2:=a.Where(x->x<0).Max;
var i2:=a.FindIndex(x->x=x2);
Swap(a[i1],a[i2]); a.Println
end.
<u>Пример</u>
n= 16
-9 -8 1 -9 2 5 -6 7 5 -9 0 2 -6 -7 3 6
-9 -8 -6 -9 2 5 1 7 5 -9 0 2 -6 -7 3 6
Uses crt;
var a,b,c : integer;
begin
writeln('Введите a (c<a*b)');
readln(a);
writeln('Введите b (c<a*b)');
readln(a);
writeln('Введите c (c<a*b)');
readln(a);
repeat
c = c*2;
until c > a*b;
writeln(a,b,c);
Program pr;
uses crt;
Var a,b,c:integer;
H,F,x,x1,x2:real;
Begin
Writeln('Шаг');
readln(H);
Writeln(' a,b,c');
readln(a,b,c);
Writeln('промежуток X нач ,X кон ');
readln(x1,x2);
x:=x1;
While x<=x2 do
Begin
if (c<0) and (b<>0) then
Begin
F:=(a*x*x)+(b*b*x);
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end
else
if (c>0) and (b=0) then
Begin
F:=(x+a)/(x+c);
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end
else
Begin
F:=x/c;
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end;
end;
readln;
end.
....................................................................................