Предмет: Информатика,
автор: Satine95
В целочисленных массивах a и b содержатся длины катетов десяти прямоугольных треугольников:
a[i] - длина первого катета;
b[i] - длина второго катета i-го треугольника.
Найдите треугольник с наибольшей площадью. Выведите его номер, длины катетов и площадь. Предусмотрите случай, когда таких треугольников несколько.
(программа с randomize)
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Математика,
автор: yuliyayurievnadokan
Предмет: Алгебра,
автор: danilprostick
Предмет: География,
автор: sahikasamadova
Предмет: Математика,
автор: Люся19751975
Предмет: Алгебра,
автор: 12Helen12