<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.
<u>Пример:</u>
-45.4 18 0 4.17
Max=18, min-45.4
А что удивляет? Вы рассматриваете элементы с номерами, не кратными 3. Операция нахождения остатка от целочисленного деления при делении нуля на n всегда дает ноль, поэтому ноль получается кратен любому числу.
Вы рассматриваете элементы с индексами 1,2,4,5,7,8,10,11,13 - всего 9 элементов.
И да - при таком условии элемент с нулевым индексом в эту совокупность элементов не входит.
1.Убрать вещи на места
Заправить кровать
Подмести пыль
Помыть пол
Протереть пыль
2.(Если на кухне.)
Помыть посуду
Протереть стол
Убрать еду на места.
Подмести пол
Помыть пол.
Для записи результата одного спортсмена требуется log(2)117 ≈ 7 бит (2^7 = 128). Объем информации о результатах 60 спортсменов = 60*7 = 420 бит.