Question

в целочисленных массивах а и б содержатся длины катетов десяти прямоугольных треугольников (а[i]-длина первого катета, b[i] -длина 2 катета i-ого треугольника). Найдите треугольник с наибольшей площадью. Выведите его номер, длины катетов и площадь. Предусмотрите случай, когда таких треугольников несколько.

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrInteger('a:', 10);

 var b := ReadArrInteger('b:', 10);

 var L := new List<integer>;

 var (m, im) := (a[0] * b[0], 0);

 for var i := 1 to a.High do

 begin

   var c := a[i] * b[i];

   if c > m then

   begin

     L.Clear;

     L.Add(i);

     (m, im) := (c, i)

   end

   else if c = m then

     L.Add(i);

 end;

 foreach var i in L do

   Println(i + 1, a[i], b[i], a[i] * b[i] / 2)

end.