Рисунок, поясняющий решение - в прилагаемом файле. Для решения задачи используется метод кругов Эйлера, только здесь круги не круглые, а прямоугольные.) S = 24 S1+S2+S3+S4 = 10 S3+S4+S5+S7 = 8 S2+S3+S6+S7 = 6 S2+S3 = 3 S3+S4 = 3 S3+S7 = 3 S3 = 1
1)cсортировка методом пузырька const n=10; var a: array[1..n] of integer; i, j, k: integer; begin randomize; write ('Исходный массив: '); for i := 1 to n do begin a[i] := random(256); write (a[i]:4); end; writeln; writeln; for i := 1 to n-1 do for j := 1 to n-i do if a[j] < a[j+1] then begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end; write ('массив по возрастанию: '); for i := 1 to n do write(а[i]:4); writeln; readln; end.
2) const n = 10; var b: array[1..n] of integer; i, j, x: integer; begin randomize; write ('Исходный массив: '); for i := 1 to n do begin b[i] := random(256); write (b[i]:4); end; writeln; writeln; x:=b[2]; b[2]:=b[n-1]; b[n-1]:=x; write ('массив '); for i := 1 to n do write (b[i]:4); writeln; readln end.
3) const n = 10; var c: array[1..n] of integer; i, j, x: integer; begin randomize; write ('Исходный массив: '); for i := 1 to n do begin c[i] := random(256); write (c[i]:4); end; writeln; writeln; writeln; for i:=5 to n-1 do c[i]:=c[i+1];
write ('массив '); for i := 1 to n-1 do write (c[i]:4); writeln; readln; end.
Для решения задачи используется метод кругов Эйлера, только здесь круги не круглые, а прямоугольные.)
S = 24
S1+S2+S3+S4 = 10
S3+S4+S5+S7 = 8
S2+S3+S6+S7 = 6
S2+S3 = 3
S3+S4 = 3
S3+S7 = 3
S3 = 1
S1+S4+S5 - ?
S1 - ?
S-(S1+S2+S3+S4+S5+S6+S7) - ?
S2 = (S2+S3)-S3 = 3-1 = 2
S4 = (S3+S4)-S3 = 3-1 = 2
S7 = (S3+S7)-S3 = 3-1 = 2
S1 = (S1+S2+S3+S4)-(S2+S3+S4) = 10-(2+1+2) = 5
S5 = (S3+S4+S5+S7)-(S3+S4+S7) = 8-(1+2+2) = 3
S1+S4+S5 = 5+2+3 = 10
S-(S1+S2+S3+S4+S5+S6+S7) = 24-(S2+S3+S6+S7)-(S1+S4+S5) =24-6-10 = 8
ответ: а)10; б)5; в)8