// PascalABC.NET 3.2, сборка 1345 от 24.11.2016 // Внимание! Если программа не работает, обновите её версию! begin var Z:=ArrRandom(ReadInteger('n='),1,99); Writeln('Массив Z'); Z.Println; Writeln('Массив X'); var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]); X.Println; Writeln('Массив Y'); var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]); Y.Println end.
Пример n= 8 Массив Z 74 17 35 3 33 84 48 39 Массив X 19.5 1.5 42 8.5 Массив Y 16 11.6666666666667 11 24.6666666666667
Треугольник существует, если a < (b+c), b < (a+c), c < (a + b) Он равносторонний, если a=b=c Он равнобедренный, если a=b!=c, a=c!=b, b=c!=a (!= всмысле не равно) Иначе произвольный Разве не очевидно?
Програмка на питоне: https://pastebin.com/raw/fKQqvfDb Там я сначала проверяю, что треугольник существует, потом проверяю, что две его любые стороны равны. Если при этом ещё и сумма всех сторон делённая на 3 равна одной из них, то они все равны => он равносторонний. Иначе он равнобедренный. Если условие про равенство двух сторон не выполняется, то он - произвольный. Как упростить - не знаю.
// Внимание! Если программа не работает, обновите её версию!
begin
var Z:=ArrRandom(ReadInteger('n='),1,99);
Writeln('Массив Z'); Z.Println;
Writeln('Массив X');
var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]);
X.Println;
Writeln('Массив Y');
var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]);
Y.Println
end.
Пример
n= 8
Массив Z
74 17 35 3 33 84 48 39
Массив X
19.5 1.5 42 8.5
Массив Y
16 11.6666666666667 11 24.6666666666667