В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Hamrod
Hamrod
06.09.2021 21:25 •  Информатика

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

Показать ответ
Ответ:
Dima7111
Dima7111
01.10.2020 16:52
Const
    n = 10;

var
    a, b: array[1..n]of real;
    i: integer;
    s, maxs: real;

begin
    for i := 1 to n do
    begin
        a[i] := random(3, 10);
        b[i] := random(3, 10);
        
        if (maxs < a[i] * b[i]) then maxs := a[i] * b[i];
    end;
    
    for i := 1 to n do
        if (maxs = a[i] * b[i]) then
            writeln(i, ' Площадь=', a[i] * b[i] * 0.5, ' а=', a[i], ' b=', b[i]);
    
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота