Function get_random(min,max:integer;n,x:boolean):integer;
begin
if n then min:=min+1;
if x then max:=max-1;
get_random := random(min,max);
end;
вызов фунциии:
[0;15),
get_random(0,15,false,true);
[0;15],
get_random(0,15,false,false);
[-15;15],
get_random(-15,15,false,false);
[10;15)
get_random(10,15,false,true);
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var max:=a.Max;
a:=a.Where(t->t<>max).ToArray; a.Println
end.
<u>Пример</u>
n= 15
-24 35 -41 14 18 -27 10 48 20 30 -42 -10 -32 -22 14
-24 35 -41 14 18 -27 10 20 30 -42 -10 -32 -22 14
===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.
В правой колонке всё правильно. В первой нужно убрать монитор.