В целочисленных массивах a и b содержатся длины катетов десяти прямоугольных треугольников:

a[i] - длина первого катета;

b[i] - длина второго катета i-го треугольника.

Найдите треугольник с наибольшей площадью. Выведите его номер, длины катетов и площадь. Предусмотрите случай, когда таких треугольников несколько.

(программа с randomize)

Program n1;

Uses CRT;

Const n=10;

Var a, b: array[1 ... n] of integer;

i, a1, b1: integer;

s, s1: real;

begin

ClrScr;

Randomize;

For i:=1 to n do

begin

a[i]:=random (20) ;

b[i]:=random (20) ;

end;

For i:=1 to n do

begin

s:=a[i]*b[i]/2;

if s>s1 then begin s1:=s; a1:=a[i]; b1:=b[i]; end;

end;

Writeln ('Naibolshya ploshad ', s,' y treugolnika s katetami ', a1,' i ', b1) ;

readln

end.