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.
для начала определим что же такое генетическая информация. это последовательность нуклеотидов в нуклеиновых кислотах днк и рнк. они разделены на участки - гены. и каждый из этих генов несет информацию о своем конкретном признаке - цвете глаз, кожи и о многих других других не столь заметных, но не менее важных, например, будут или нет у организма болезни по наследству. то есть, грубо говоря, наследственная информация это "инструкция пользования" конкретным организмом. в ней хранятся все данные вплоть до протекающих в организме процессах. потому знание и умение обращаться с данным источником информации имеет огромную важность. как было выше сказано ранняя расшифровка на эмбриональной стадии развития конкретного организма позволит выявить и в некоторых случаях предотвратить наследственные заболевания. кроме того умение изменять генетическую информацию лежит в основе такой науки как селекция. именно за счет изменения исходных генетических кодов организмов возможно выведение новых пород животных и сортов растений, повышение их жизнеспособности. именно потому, что знание генетической информации необходимо и возникло такое инновационное направление биологической науки, как генная инженерия которая занимается расшифровкой генотипа организмов и изучением возможности их изменения.
Поделитесь своими знаниями, ответьте на вопрос:
Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре. пример: исходный массив: 14 25 13 30 76 58 32 11 41 97 результат: 30 11 41 32 13 14 25 76 97 58 говорили про какой-то метод пузырька. хелп ми т_т p.s. паскаль abc , если честно -
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.