Здравствуйте ребята. Напоминаю, что у Вас задание по информатике в тетради. Нужно записать примеры решения задач из учебника и придумать свои задачи (и их решить)
Программа написана на языке Паскаль. uses crt; var m, n,t, i : integer; a : array [1..10] of integer; max : array [1..10] of integer; begin clrscr; m := -100; write ('N ='); readln (n); for i:= 1 to n do read (a[i]); for i:= 1 to n do if a[i]>=m then begin max[1]:= a[i]; m:=max[1]; end; for i:= 1 to n do if t<>1 then if a[i]=max[1] then begin a[i]:=0; t:= t+1; end; m:= -100; for i:= 1 to n do if a[i]>=m then begin max[2]:= a[i]; m:=max[2]; end; t:= 0; for i:= 1 to n do if t<>1 then if a[i]=max[2] then begin a[i]:=0; t:= t+1; end; m:= -100; for i:= 1 to n do if a[i]>=m then begin max[3]:= a[i]; m:=max[3]; end; t:= 0; for i:= 1 to n do if t<>1 then if a[i]=max[3] then begin a[i]:=0; t:= t+1; end; m:= -100; writeln; for i := 1 to 3 do t:= max[i]+t; writeln ('otvet ',t); readkey; end.
1) От хаоса к порядку: - на водеме водоплавающие птицы перемещаются хаотично, во время сбора и отлета стаи в более теплые места на зимовку происходит переход к порядку - птицы в стаях летят в строго определенном порядке, вожак строго впереди, за ним все остальные перелетные птицы; - рыбы в течении всего года перемещаются хаотично, во время нереста (например, семги) рыба собираются вместе и перемещается в одном направлении - вверх по течению реки 2) От порядка к хаосу происходит переход во время землетрясения (нарушение жизни растений животных, почв, рельефа и тд), штормов, цунами, ураганов и тд 3) Информационные сигналы: человеческая речь - звуковые сигналы, видео - информационные сигналы для органов зрения - результат обрабатывается в головном мозге 4) Генетическая информация нужна для передачи новым поколениям опыта при живых организмов к окружающей среде, например, цвет кожи для жителей разных климатических поясов.
uses crt;
var
m, n,t, i : integer;
a : array [1..10] of integer;
max : array [1..10] of integer;
begin
clrscr;
m := -100;
write ('N ='); readln (n);
for i:= 1 to n do
read (a[i]);
for i:= 1 to n do
if a[i]>=m then begin
max[1]:= a[i]; m:=max[1]; end;
for i:= 1 to n do if t<>1 then
if a[i]=max[1] then begin a[i]:=0; t:= t+1; end;
m:= -100;
for i:= 1 to n do
if a[i]>=m then
begin
max[2]:= a[i]; m:=max[2];
end;
t:= 0;
for i:= 1 to n do
if t<>1 then
if a[i]=max[2] then
begin a[i]:=0; t:= t+1; end;
m:= -100;
for i:= 1 to n do
if a[i]>=m then
begin max[3]:= a[i]; m:=max[3]; end;
t:= 0;
for i:= 1 to n do if t<>1 then
if a[i]=max[3] then begin
a[i]:=0; t:= t+1; end;
m:= -100;
writeln;
for i := 1 to 3 do
t:= max[i]+t;
writeln ('otvet ',t);
readkey;
end.