Для начала определим что же такое генетическая информация. Это последовательность нуклеотидов в нуклеиновых кислотах ДНК и РНК. они разделены на участки - гены. И каждый из этих генов несет информацию о своем конкретном признаке - цвете глаз, кожи и о многих других других не столь заметных, но не менее важных, например, будут или нет у организма болезни передающиеся по наследству. То есть, грубо говоря, наследственная информация это "инструкция пользования" конкретным организмом. В ней хранятся все данные вплоть до протекающих в организме процессах. Потому знание и умение обращаться с данным источником информации имеет огромную важность. Как было выше сказано ранняя расшифровка на эмбриональной стадии развития конкретного организма позволит выявить и в некоторых случаях предотвратить наследственные заболевания. Кроме того умение изменять генетическую информацию лежит в основе такой науки как селекция. Именно за счет изменения исходных генетических кодов организмов возможно выведение новых пород животных и сортов растений, повышение их жизне Именно потому, что знание генетической информации необходимо и возникло такое инновационное направление биологической науки, как генная инженерия которая занимается расшифровкой генотипа организмов и изучением возможности их изменения.
Program Temperature;
var T: array[1..12] of real;
Dt:array[1..12] of real;
i:integer; Tsred:real;
begin
for i:=1 to 12 do begin
write('T[',i:2,'] = ');
readln(T[i]);
end;
Tsred:=0;
for i:=1 to 12 do
Tsred:=Tsred+T[i];
Tsred:=Tsred/12;
Writeln('Среднегодовая температура = ',Tsred:6:2);
for i:=1 to 12 do begin
Dt[i]:=T[i]-Tsred;
writeln('Dt[',i:2,']',Dt[i]:6:2);
end;
end.
Ну а результаты получите, когда запустите программу.