Страница 72-86 §2.2 номер 11, ГДЗ по информатике за 9 класс к учебнику Босовой
Площадь прямоугольных треугольников равна половине произведения катетов. В программе для простоты сравниваются произведения катетов без деления на 2, что не влияет на результат выполнения программы, но не создает дополнительный вещественный массив.
Для проверки корректности работы программы число треугольников принято за 500. На более меньшем количестве редко получаются совпадения.
program z_11;
const
n = 500;
var
a, b, s: array [1..n] of integer;
max, k, j, i: integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := random(20) + 10;
b[i] := random(20) + 10;
s[i] := a[i] * b[i]
end;
max := s[1];
for i := 2 to n do
if s[i] > max then max := s[i];
k := 0;
for i := 1 to n do
if s[i] = max then
begin
k := k + 1;
j := i;
writeln('Номер: ', j, '; Катеты: ', a[j], ' и ', b[j], '; Площадь: ', s[j] / 2:8:2)
end;
writeln('Максимальных треугольников: ', k)
end.
