Чего дааааааааааааааууууууууууууж
Так как Вы не уточнили какой Вы хотите что б был вывод на екран, то я буду выводить число а, б или с. (Писал на паскале ABC)
код программы на паскале:
<span>var</span> a<span>,</span>b<span>,</span>c<span>:</span><span>real</span>;
<span>begin</span><span>writeln</span><span>(</span><span>'Введите a'</span><span>)</span>;
<span>readln</span><span>(</span>a<span>)</span>; <span>writeln</span><span>(</span><span>'Введите b'</span><span>)</span>;
<span>readln</span><span>(</span>b<span>)</span>;
<span>writeln</span><span>(</span><span>'Введите c'</span><span>)</span>;
<span>readln</span><span>(</span>c<span>)</span>;
<span>if</span><span>(</span>a>b<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'a - наибольшее число'</span><span>)</span><span>else</span><span>if</span><span>(</span>b>a<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'b - наибольшее число'</span><span>)</span><span>else</span><span>writeln</span><span>(</span><span>'c - наибольшее число'</span><span>)</span>;
<span>readln</span>;
<span>end</span>.
Рад был помочь) Пишите)
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600