Я думаю,что ребята на соревнования приедут из 5 городов.
На 1 лист уходит время 3+9+2=14сек. 40×14=560сек. последний лист не сменяется. 560+3+2=565сек.
<span>1 байт это 8 бит
1000\8=125 байт
</span>
// PascalABC.NET 3.3.5
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите массив:',n);
Writeln(a.Where(x->(x mod 3<>0)).Average);
end.
Пример:
n= 5
Вводите массив: 20 15 11 45 32
21