2. Представьте себе, что при каждой сортировке программа изменяла бы расположение данных на диске. Какие достоинства и недостатки есть у такого решения?
Достоинства:

я поеду в москву и если встречу там друзей, то интересно проведем время.решение: м – я поеду в москвув – я встречу там друзей м×( в ® и )и – мы интересно проведем там время

если я поеду в москву и встречу там друзей, то интересно проведем время. решение: м×в ® и

не верно, что если погода пасмурная, то дождь идет тогда и только тогда, когда нет ветра.решение: д – идет дождьп – пасмурная погода  в – дует ветер 

делается по такому же принципу 

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

1) элемент с номером k заменяется на 2

var

a: array [1..20] of integer;

i,n,k: integer;

begin

readln(n);

for i: =1 to n do

begin

a[i]: =random(50);

write(a[i]: 3);

end;

writeln;

readln(k);

a[k]: =2;

for i: =1 to n do

write(a[i]: 3);

end.

2) элемент вставляется в массив остальные элементы сдвигаются вправо

var a: array [1..20] of integer; i, n, k: integer;

begin readln(n); for i : = 1 to n do begin a[i] : = random(50); write(a[i]: 3); end; writeln; readln(k); for i: =n+1 downto k do a[i]: =a[i-1]; a[k] : = 2; for i : = 1 to n+1 do write(a[i]: 3); end.

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.