Котенок - активные - кушать,играть.Пассивные - кормить,гладить.Автомобиль активные- едет, газует.Пассивные - мыть,парковать.Человек активные - спать,есть,учиться.Пассивные - общаться,помогать.
And (a > c) then Begin max:=a; min1:=b; min2:=c; end else if (b>a) and (b>c) then Begin max:=b; min1:=a; min2:=c end else Begin max:=c; min2:=a; min2:=b; End; if (sqr(max)=sqr(min1)+sqr(min2)) then Writeln('Треугольник прямоугольный') else if (sqr(max)<sqr(min1)+sqr(min2)) then Writeln('Треугольник остроугольный') else Writeln('Треугольник тупоугольный'); end else Writeln('Треугольник не существует'); Readln(); END.
В формате "целое без знака" с помощью n двоичных разрядов можно записать числа от 0 до 2^n - 1 (это соответствует записям от 000...0 до 111...1, где в каждом числе по n разрядов).
При n = 11 максимальное число равно 111...1_2 (11 разрядов) = 2^11 - 1 = 2048 - 1 = 2047
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,-10,10); a.Println;
a:=a.Shuffle; a.Println;
a:=a.Where(x->x<>a.Max).ToArray;
a.Println;
end.
Пример:
n = 20
8 -9 1 -5 -5 0 9 -4 -7 -4 -3 9 7 -2 4 6 -2 7 -9 -2
-4 -7 -2 8 9 -3 9 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
-4 -7 -2 8 -3 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9