Вцелочисленных массивах a и b содержатся длины катетов десяти прямоугольных треугольников: a[i] - длина первого катета; b[i] - длина второго катета i-го треугольника. найдите треугольник с наибольшей площадью. выведите его номер, длины катетов и площадь. предусмотрите случай,когда таких треугольников несколько.
n=10;
var
a,b:array[1..n] of integer;
i,si,smax:integer;
begin
Writeln('Введите парами длины катетов ',n,' треугольников');
smax:=0;
for i:=1 to n do begin
Read(a[i],b[i]);
si:=a[i]*b[i]; { пополам разделим потом максимальное }
if si>smax then smax:=si
end;
Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':');
for i:=1 to n do
if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]);
Writeln
end.
Пример работы
Введите парами длины катетов 10 треугольников
7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8
Треугольник(и) с максимальной площадью, равной 90:
№2: 18x10
№6: 15x12
№8: 9x20