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

Ответы

Ответ дал: LERa007123

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.

Спасибо

Ответ дал: Гость

самотестирование компьютера

первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы

второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.

программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей

при включении комп. ос загружается в оп раньше остальных программ

Ответ дал: Гость

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln(' ',m: 2: 2,' кг'); readln; end.