Question

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

Answer 1

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.