Question

Программа прочитает от пользователя 10 чисел, после этого выведет на экран второе самое большое число.
Пример:
После ввода:
5
44
80
1
8
100
11
90
2
6
Программа выведет:
90

Answer 1

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

Answer 2

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadArrInteger(10).OrderByDescending(t->t).Skip(1).First)
end.

Пример
5 44 80 1 8 100 11 90 2 6
90