Const
n = 50;// количество элем массиваvar
a: array [1..n] of integer;
kol, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 2 to n - 1 do
if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then
kol := kol + 1;
writeln(kol);
end.
Ответ:
это будет муляж, потому что его можно потрогать и рассмотреть
1) От хаоса к порядку:
- на водеме водоплавающие птицы перемещаются хаотично, во время сбора и отлета стаи в более теплые места на зимовку происходит переход к порядку - птицы в стаях летят в строго определенном порядке, вожак строго впереди, за ним все остальные перелетные птицы;
- рыбы в течении всего года перемещаются хаотично, во время нереста (например, семги) рыба собираются вместе и перемещается в одном направлении - вверх по течению реки
2) От порядка к хаосу происходит переход во время землетрясения (нарушение жизни растений животных, почв, рельефа и тд), штормов, цунами, ураганов и тд
3) Информационные сигналы: человеческая речь - звуковые сигналы, видео - информационные сигналы для органов зрения - результат обрабатывается в головном мозге
4) Генетическая информация нужна для передачи новым поколениям опыта приспособления живых организмов к окружающей среде, например, цвет кожи для жителей разных климатических поясов.
Var
a:array[1..1000] of integer;
n, i, suma:integer;
begin
write('введите количество чисел массива ');
readln(n);
suma:=0;
for i:=1 to n do
begin
a[i]:=random(101)-70;
if(a[i]<0) then
suma:=suma+a[i];
end;
write('массив ');
for i:=1 to (n-1) do
write(a[i],', ');
writeln(a[n],' ');
writeln('сумма отрицательных элементов ',abs(suma));
end.
Ответ:
128
Объяснение:
Количество строк в таблице истинности вычисляется по формуле
2^n (2 в степени n) + строка заголовков столбцов, где
n - количество переменных
Так как шапку (строку заголовков столбцов) учитывать не нужно, а n = 7, то
количество строк = 2^7 = 128