Высоту можно определить по известной формуле (если проблемы с этим - см. Интернет или задайте вопрос в Геометрии, чтобы формулу вывели):
, где a,b - катеты
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Write('Введите катеты через пробел: '); Read(a,b);
Writeln('h=',a*b/sqrt(a*a+b*b))
end.
Program P;
Var
n, i : Integer;
max, iMax: Integer;
Begin
Write('Enter 10 numbers ');
for i := 1 to 10 do
Begin
Read(n);
if i = 1 then
Begin
max := n;
iMax := i;
End
else
if n > max then
Begin
max := n;
iMax := i;
End;
End;
WriteLn('Max = ', max);
WriteLn('index = ', iMax);
ReadLn;
End.
Ответ:
a = list(str(input()).split())
z = int(a[0])
e = int(a[1])
b = (input().split())
c = sum(map(int, b ))
if c%e > 0:
x = c//e + 1
else:
x = c//e
print (x)
Объяснение:
КАТЯ
ПРАСТИ
ДОВАЙ
МЕРИТР
ДОВАЙ
ЗАБУДЕМ
СТАРЫЕ
ОБИДЫ
(Всё, как там написано)