Прежде всего - формулы. Пусть а - длина стороны, тогда
var
a, r, rr, h, s: real;
begin
Write('Введите длину стороны треугольника: ');Readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r);
Writeln('Радиус описанной окружности ', rr);
Writeln('Высота треугольника ', h);
Writeln('Площадь треугольника ', s);
end.
<em><u>Тестовое решение:</u></em>Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219
Что за язык?
ну создаешь переменную (допустим min), в неё заносишь значение первого элемента (элемента номер 0),
создаешь цикл и перебираешь со второго элемента (номер 1) до конца массива,
в ходе перебора сравниваешь значение каждого элемента массива с переменной (min), если значение элемента меньше, то присваиваешь переменной (min) значение текущего элемента в цикле...
+ Если нужно ещё найти порядковый номер наименьшего элемента в массиве, можно параллельно вести другую переменную (minnum) например, и каждый раз когда находится элемент меньший чем min присваивать minnum - номер текущего элемента в цикле
1710
или я не понял вопроса
Будет вывод текста, который стоит в апострофах:
<span>произведение =5*5
вот если бы апостроф стоял здесь
</span><span>'произведение ='5*5
то тогда был бы вывод
</span><span>произведение =25</span>