//Pascal ABC.NET Версия 2.2 Сборка 790 var ar:array[1..12] of integer; i,s:int64;begin; s:=1; for i:=1 to 12 do begin; readln(ar[i]); if ar[i]>50 then s*=ar[i]; end; writeln(s); end.
Пример ввода: 1 2 3 4 5 6 7 50 50 51 51 70 Пример вывода: 182070
1) От хаоса к порядку: - на водеме водоплавающие птицы перемещаются хаотично, во время сбора и отлета стаи в более теплые места на зимовку происходит переход к порядку - птицы в стаях летят в строго определенном порядке, вожак строго впереди, за ним все остальные перелетные птицы; - рыбы в течении всего года перемещаются хаотично, во время нереста (например, семги) рыба собираются вместе и перемещается в одном направлении - вверх по течению реки 2) От порядка к хаосу происходит переход во время землетрясения (нарушение жизни растений животных, почв, рельефа и тд), штормов, цунами, ураганов и тд 3) Информационные сигналы: человеческая речь - звуковые сигналы, видео - информационные сигналы для органов зрения - результат обрабатывается в головном мозге 4) Генетическая информация нужна для передачи новым поколениям опыта при живых организмов к окружающей среде, например, цвет кожи для жителей разных климатических поясов.
Процесс перехода от хаоса к порядку идет в незамкнутых системах(из простого под определенными внешними воздействиями создается сложное => информация увеличивается) например: 1)элементарные частицы(хаос) => (при определенных внешних воздействиях) => атом(уже порядок) 2)атомы (хаос) => (какое-то внешнее воздействие) => молекула(порядок) 3)молекулы(хаос) => (внешнее воздействие) => вещество(порядок) 4)межзвездный газ и пыль(хаос) => (воздействие гравитации) => звезда(порядок) 5)пар(хаос, молекулы двигаются беспорядочно) => (понизили температуру( сначала вода, потом лед) )=> лед(порядок, молекулы упорядочены) 6)идет дождь(капли воды находятся в беспорядке) => (из-за неровностей поверхности)=> озеро(порядок) 7)взяли любое вещество=> (понизили температуру до абсолютного нуля(гипотетически)) => движение молекул полностью прекратилось(абсолютный порядок) 8)возьмем проводник(например медь) - в нем электроны находятся в беспорядке=> создадим электрическое поле => электрический ток(направленное движение заряженных частиц - уже порядок)
var ar:array[1..12] of integer;
i,s:int64;begin;
s:=1;
for i:=1 to 12 do
begin;
readln(ar[i]);
if ar[i]>50 then s*=ar[i];
end;
writeln(s);
end.
Пример ввода:
1 2 3 4 5 6 7 50 50 51 51 70
Пример вывода:
182070