считаем, что вначале данные . полагаем, что первый элемент находится на своем месте, поэтому граница между отсортированными и неотсортированными элементами находится после первого элемента. на каждом шаге, начиная от границы, ищем максимальный элемент и определяем его место в отсортированной части последовательности, после чего сдвигаем необходимую часть отсортированных элементов вправо и производим вставку элемента на освободившееся место. алгоритм выполняем до тех пор, пока не граница отсортированных данных не выйдет за границу массива.
pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!procedure sortbyinsert(a: array of real);
// сортировка простыми вставками
begin
for var граница : = 1 to a.length - 1 do
if a[граница - 1] < a[граница] then
begin
// сдвиг вправо
var (элемент, позиция) : = (a[граница], граница - 1);
while (позиция > = 0) and (a[позиция] < элемент) do
(a[позиция + 1], позиция) : = (a[позиция], позиция - 1);
// вставка на нужное место
a[позиция + 1] : = элемент
end
end;
begin
var a : = readarrreal(8);
sortbyinsert(a); a.println
end.
пример 2.9 -25 8.1 31.9 -30.9 20.9 47.6 6.6 47.6 31.9 20.9 8.1 6.6 2.9 -25 -30.9обозначу елемент "кратных по значению" - e. напишу програмку на паскале:
program sumotrizatelnix;
var a: array[1..15] of integer;
i,n,s,e: longint;
begin
readln(e);
for i: =1 to 15 do
read(a[i]); //ввели с клавиатуры масив
for i: =1 to 15 do
if (a[i] mod e=0) or (a[i] < 0) then s: =s+a[i]; // добавляем елемент если нам подходит
writeln(s); // выводим сумму
end.
Поделитесь своими знаниями, ответьте на вопрос:
Документ (без упаковки) можно передать по каналу связи с одного компьютера на другой за 75 секунд. если предварительно упаковать документ архиватором, передать упакованный документ, а потом распаковать на компьютере получателя, то общее время передачи (включая упаковку и распаковку) составит 30 секунд. при этом на упаковку и распаковку данных всего ушло 15 секунд. размер исходного документа 20 мбайт. чему равен размер упакованного документа (в мбайт)?