<span>var
</span>
<span /><span><span>a: array [</span>1..10<span>] of </span>integer;</span>
<span /><span>i : integer;</span>
<span /><span>
begin</span>
<span>
randomize;
</span>
<span /><span><span>for i:=</span>1 to 10 do </span><span>A[i]:=Random(15);</span>
<span /><span><span> for i:=</span>1 to 10 do </span><span><span>if A[i]=</span>5 then</span>
<span /><span>writeln('да то что надо ',A[i])</span><span />
<span>else
</span><span>writeln('ошибка');</span><span>
readln ;
</span>
<span><span>end.</span></span>
В задаче достаточно держать в памяти два числа: наибольшее и второе по величине – и обновлять эту пару, считывая числа. Если считанное число больше максимального, то оно будет новым максимумом, а бывший максимум станет вторым по величине; если считанное число меньше максимального, но больше второго по величине, то оно становится новым вторым по величине.
Реализация (python 3):
max, max2 = int(input()), int(input())
if max2 > max:
max, max2 = max2, max
while True:
t = int(input())
if t == 0: break
if t > max:
max, max2 = t, max
elif t > max2:
max2 = t
print(max2)
Пример ввода:
5
1
3
2
4
0
Пример вывода:
4
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.
var a,b,c:real;
begin
readln(a,b,c);
if a> max(b,c) then writeln(a)
else if b> max(a,c) then writeln(b)
else writeln(max(a,c))
end.
var i,s:integer;
begin
while i<>-5 do begin
readln(i);
if i mod 2=0 then s:=s+1;
end;
writeln(s);
end.
1.подмножество;2.множество;3.Пересечение;4.схема;5.объединение;6.эйлер;7.отношения;8.объект.