const
n = 10;
var
a: array[1..n] of integer;
i, j: integer;
begin
randomize;
writeln('исходный массив: ');
for i : = 1 to n do
begin
a[i] : = random(101);
write(a[i], ' ');
end;
for i : = 1 to n - 1 do
for j : = 1 to n - i do
if a[j] mod 10 > a[j + 1] mod 10 then
begin
a[j] : = a[j] + a[j + 1];
a[j + 1] : = a[j] - a[j + 1];
a[j] : = a[j] - a[j + 1];
end;
writeln;
writeln('результат: ');
for i : = 1 to n do
write(a[i], ' ');
writeln;
end.
для начала определим что же такое генетическая информация. это последовательность нуклеотидов в нуклеиновых кислотах днк и рнк. они разделены на участки - гены. и каждый из этих генов несет информацию о своем конкретном признаке - цвете глаз, кожи и о многих других других не столь заметных, но не менее важных, например, будут или нет у организма болезни по наследству. то есть, грубо говоря, наследственная информация это "инструкция пользования" конкретным организмом. в ней хранятся все данные вплоть до протекающих в организме процессах. потому знание и умение обращаться с данным источником информации имеет огромную важность. как было выше сказано ранняя расшифровка на эмбриональной стадии развития конкретного организма позволит выявить и в некоторых случаях предотвратить наследственные заболевания. кроме того умение изменять генетическую информацию лежит в основе такой науки как селекция. именно за счет изменения исходных генетических кодов организмов возможно выведение новых пород животных и сортов растений, повышение их жизнеспособности. именно потому, что знание генетической информации необходимо и возникло такое инновационное направление биологической науки, как генная инженерия которая занимается расшифровкой генотипа организмов и изучением возможности их изменения.
Поделитесь своими знаниями, ответьте на вопрос:
var a: array [1..10] of integer; i, j, n, temp: integer; begin randomize(); n : = 10; for i : = 1 to n do begin a[i] : = random(100); write(a[i], ' '); end; for j : = 1 to n - 1 do begin for i : = 1 to n - j do begin if a[i] mod 10 < a[i + 1] mod 10 then begin temp : = a[i]; a[i] : = a[i + 1]; a[i + 1] : = temp; end; end; end; writeln(); for i : = 1 to n do write(a[i], ' '); end.