В целочисленных массивах a и b содержатся длины катетов десяти прямоугольных треугольников (a[i] — длина первого катета, b[i] — длина второго катета i-го треугольника). Напишите программу, которая по имеющимся данным определит треугольник с наибольшей площадью и выведет его номер, длины катетов и площадь. Предусмотрите случай, когда таких треугольников несколько.
Ответ
rogram katety;
var
а, b: array [1..10] of integer;
s: array [1..10] of real;
i: integer;
max: real;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
b[i]:=random(10)+1;
s[i]:=а[i]*b[i]/2;
writeln (‘а[‘, i, ‘] = ‘, a[i]:6, ‘ b[‘, i, ‘] = ‘, b[i]:6, ‘s[‘, i, ‘] = ‘, s[i):6:2);
end;
max:=s[1];
for i:=2 to 10 do
if s[i]>max then max:=s[i];
for i:=1 to 10 do
if s[i]=max then writeln (‘i = ‘ i, ‘а = ‘, a[i], ‘ b = ‘, b[i], ‘ s = ‘, s[i]);
end.