В целочисленных массивах а и b содержатся длины катетов десяти прямоугольных треугольников (а[i] - длина первого катета, b[i] - длина второго катета i-го
5-9 класс
|
треугольника). Найдите треугольник с наибольшей площадью. Выведите его номер, длины катетов и площадь. Предусмотрите случай, когда таких треугольников несколько.
program z;
var a:array[1..10]of integer; i,k,g,h,o:integer;
b:array[1..10] of integer; s:real;
begin
o:=0; g:=0;
for i:=1 to 10 do
begin
a[i]:=random(1,100);
b[i]:=random(1,100);
if a[i]>k then k:=a[i];
if b[i]>h then h:=b[i];
end;
for i:=1 to 10 do
begin
if k=a[i] then o:=o+1;
if h=b[i] then g:=g+1;
end;
while g<>o do
begin
if g>o then g:=g-1
else
o:=o-1;
end;
s:=(k*h)/2;
for i:=1 to o do
begin
writeln(i, ' Треугольник');
writeln('Длина 1-ого катета = ',k, ' длина 2-ого катета = ',h, ' S = ',s);
end;
writeln('Таких треугольников ',o);
end.
Другие вопросы из категории
Массив из 10 элементов заполнен случайными числами. Узнать кол-во элементов массива >10 <70.
Читайте также
Вычислить площадь прямоугольного треугольника по заданным длинам двух катетов а и b
2)вычислить площадь и периметр прямоугольного треугольника по заданным длинам двух катетов а и b
определите его тип(равносторонний, равнобедренный,разносторонний)
условием не намудрила и до вас дойдёт основное содержание)
1) Вычислите Р и S прямоугольного треугольника, по заданным длинам двух катетов а и в.
(у=, у:5:3)
Там должно получиться 4 действия. Основное я записала, но запор вышел с пунктами: "Программирование" и "Окладка и тестирование"