Program Z_n; var a:array[1..10] of byte; i:byte; Begin writeln; Randomize; For i:=1 to 10 do begin a[i]:=random(10); write(a[i],' '); if (a[i] mod 2)=0 then a[i]:=a[i]+1; end; writeln; For i:=1 to 10 do Write(a[i],' '); end.
Общая характеристика: 1) Многоклеточные 2) Двуслойные 3) Есть кишечная полость(не является полостью тела!) 4) Есть стрекательные клетки 5) Ткани слабо дифференцированы(поэтому есть к регенерации) 6) Нервная система диффукзного типа 7) Дыхание диффузное 8) Смена полового и бесполого поколения: а) Увеличение количества особей б) Улучшение жизне в) Захват новых территорий * половое поколение(медуза) и бесполое поколение(полип) * У Гидроидных преобладает полип, у сцифоидных медуза, у коралловых полипов нет формы медузы(расселяются планулами(личинками)) *У медуз есть глаза
Общая характеристика: 1) Многоклеточные 2) Двуслойные 3) Есть кишечная полость(не является полостью тела!) 4) Есть стрекательные клетки 5) Ткани слабо дифференцированы(поэтому есть к регенерации) 6) Нервная система диффукзного типа 7) Дыхание диффузное 8) Смена полового и бесполого поколения: а) Увеличение количества особей б) Улучшение жизне в) Захват новых территорий * половое поколение(медуза) и бесполое поколение(полип) * У Гидроидных преобладает полип, у сцифоидных медуза, у коралловых полипов нет формы медузы(расселяются планулами(личинками)) *У медуз есть глаза
var a:array[1..10] of byte;
i:byte;
Begin
writeln;
Randomize;
For i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if (a[i] mod 2)=0 then a[i]:=a[i]+1;
end;
writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.