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
1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
1. 7 не меньше 3, 4 не равно 5, 2 больше 3, так что A=0, B=0, C=1
а) c^b=0, a => 0 = 0
б) 0v0v1=1, там какой-то непечатаемый символ, не могу его прочитать
в) не помню порядок действий, но если сперва умножение, то 1, иначе 0
2. Если я правильно понимаю задание, то ответ такой: Если в городе прекрасная погода, то самолёты будут летать.
Может быть материнская плата?