Дан масив из 10 целых положительных чисел, заполненный с клавиатуры. найти максимальный и минимальный элемент в массиве и определить, на сколько максимальный элемент больше минимального.
var arr: array[1..m] of integer; i, j, k,r: integer;
begin
for i := 1 to m do begin read (arr[i]); end; for i := 1 to m-1 do for j := 1 to m-i do if arr[j] > arr[j+1] then begin k := arr[j]; arr[j] := arr[j+1]; arr[j+1] := k end;
for i := 1 to m do write (arr[i]:4); r:=arr[10]-arr[1]; write (' ',r); writeln;
Граф - множество вершин и ребер, соединяющих эти вершины. Он несет информацию об элементах системы и связи между ними. Элементы системы изображаются как вершины или узлы графа. Отношения между ними изображаются как ребра или дуги графа. Деревом называют ациклический (то есть между любыми вершинами есть только один путь), связный (то есть от любой вершины графа можно добраться в другую) граф. Корень дерева - это вершина с нулевой степенью захода (то есть в нее не ведут другие ребра). Для неориентированного графа это просто выбранная нами вершина. Ветви - это ребра дерева. Листья дерева - это вершины с нулевой степенью исхода (то есть из них не выходят ребра), т.е. не имеющих поддеревьев. Надеюсь объяснил доступно.
Переводим 112 и 64 в 2СС . 112 =1110000 64 =1000000 так как байт - это 8 бит ,следовательно в числе должно быть восемь знаков , тогда добавляем перед числами по незначащему нулю , тогда 112 = 01110000 64 = 01000000 адрес сети получается , когда мы применяем поразрядную конъюнкцию (между маской и ip адресом) 01110000 <-- маска
01000000 мы видим в адресе сети единицу и над ней в ip адресе тоже единица , значит на этом месте в маске может быть только 1 . Так как в маске у нас идут (СТРОГО) сначала единицы ,потом нули, тогда маска будет равна 11000000 , что в переводе в 10 -ную СС =192 ответ : 192
const
m = 10;
var
arr: array[1..m] of integer;
i, j, k,r: integer;
begin
for i := 1 to m do begin
read (arr[i]);
end;
for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
for i := 1 to m do
write (arr[i]:4);
r:=arr[10]-arr[1];
write (' ',r);
writeln;
readln
end.