<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
<span>это 5 континентов планеты</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
При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
program p1;var a: real; i: integer;begin writeln('Введите курс доллара >> '); readln(a); for i:=1 to 10 do begin writeln(i+'$ = ' + i*a + ' рублей'); end;end.
Находим ту степень, в которую надо возвести двойку, чтобы получить N.