за відомостями з інтернету або каталогами комп'ютерних магазинів запропонуйте для шкільної бібліотеки дві моделі проекційних сканерів для створення елоктронної бібліотеки.
обязательно что б было 8 символов ,если будет меньше, то слева приписываешь 0 ) Затем переводишь маску в двоичную систему . (Покажу тебе на двух числах, если ты понял то что я написал выше , то с другими этого проделывать не надо , а если не понял , то делаешь так для каждого числа)
Затем просто переписываешь эти числа в два ряда
11100000 11000100 ( И пишешь 1 там где друг над другом стоят единицы) 11000000
Теперь переводишь это число в десятичную
Твой ответ . 12.16.192.0 (буквы думаю сам напишешь )
// PascalABC.NET 3.0, сборка 1128 begin var b:array[,] of integer:=((5,8,7,3),(-2,0,6,9),(2,1,12,4)); Writeln('Массив B: ',b); var n:=b.GetLength(0); var m:=b.GetLength(1); var imax:=0; var jmax:=0; var imin:=0; var jmin:=0; for var i:=0 to n-1 do for var j:=0 to m-1 do if b[i,j]>b[imax,jmax] then begin imax:=i; jmax:=j end else if b[i,j]<b[imin,jmin] then begin imin:=i; jmin:=j end; Swap(b[imin,jmin],b[imax,jmax]); Writeln('Результирующий массив: ',b) end.
Затем просто переписываешь эти числа в два ряда
11100000
11000100 ( И пишешь 1 там где друг над другом стоят единицы)
11000000
Теперь переводишь это число в десятичную
Твой ответ . 12.16.192.0 (буквы думаю сам напишешь )
begin
var b:array[,] of integer:=((5,8,7,3),(-2,0,6,9),(2,1,12,4));
Writeln('Массив B: ',b);
var n:=b.GetLength(0);
var m:=b.GetLength(1);
var imax:=0; var jmax:=0;
var imin:=0; var jmin:=0;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
if b[i,j]>b[imax,jmax] then begin imax:=i; jmax:=j end
else
if b[i,j]<b[imin,jmin] then begin imin:=i; jmin:=j end;
Swap(b[imin,jmin],b[imax,jmax]);
Writeln('Результирующий массив: ',b)
end.
Тестовое решение:
Массив B: [[5,8,7,3],[-2,0,6,9],[2,1,12,4]]
Результирующий массив: [[5,8,7,3],[12,0,6,9],[2,1,-2,4]]