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
var
a, b: integer;
begin
write('введите две стороны = >');
readln(a, b);
writeln('периметр = ', 2 * (a + b));
writeln('площадь = ', a * b);
end.
1) именительного падежа,единственного числа.
2)<span>следовательно, число не оканчивается на 0</span>
Pascal abc.
Проверка
введите кол-во элементов массива
10
12 13 27 29 19 18 11 20 22 16
<span>сумма=187</span>