1. if (a < (b+c)) or (b < (a+c)) or (c < (a+b)) then может.
2. d := b*b - 4*a*c;
if (d < 0) then нет решение
x1 := (-b + sqrt(d)) / 2 / a;
x2 := (-b - sqrt(d)) / 2 / a;
Begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var m:=a.Where(x->x<a.Max).Max;
writeln('Второй максимум = ',m);
end.
Пример:
Введите 10 чисел:
5
44
80
1
8
100
1
90
2
6
Второй максимум = 90
В кодировке ASCII для кодирования одного символа используется 8 бит = 1 байт. В приведенном сообщении 23 символа (с учетом пробелов и точек) ⇒ объем памяти для хранения сообщения = 23 байта.