Написать программу на паскаль для нахождения минимального элемента таблицы и увеличить его на 100

program pr1; uses crt; var mas: array[1..20,1..20] of integer; i,j,k,l,min: integer; beginclrscr; min: =10000000; for i: =1 to 20 dofor j: =1 to 20 do mas[i,j]: =random(100); for i: =1 to 20 dofor j: =1 to 20 do begin gotoxy(j,i); writeln(mas[i,j]); if mas[i,j]< min then begin min: =mas[i,j]; k: =i; l: =j; end; end; mas[k,l]: =mas[k,l]+100; for i: =1 to 20 dofor j: =1 to 20 do begin gotoxy(j+50,i); writeln(mas[i,j]); end; end.

var a: array[1..10,1..10]of integer; i,j,min,i1,j1: integer; beginmin: =9999999; for i: =1 to 10 do for j: =1 to 10 do readln(a[i,j]); for i: =1 to 10 do for j: =1 to 10 do if a[i,j]< min then begin min: =a[i,j]; i1: =i; j1: =j; end; a[i1,j1]: =a[i1,j1]+100; end.

Воспользуемся расширенной записью шестнадцатиричного числа в десятичной системе счисления. тогда 3(a*16²+b*16+c)=b*16²+c*16+a; 767a=208b+13c; 59a=16b+c → a=(16b+c)/59  (1) здесь a,b,c - шестнадцатиричные цифры, имеющие десятичный эквивалент от 0 до 15. наложим ограничения. a и b не могут быть нулевыми, поскольку с них начинаются числа, а с может быть и нулем. при b=15 и c=15 значение a по формуле (1) не может быть больше (16*15+15)/59, что в целых числах дает 4. следовательно, нам надо подобрать такие b и c, чтобы a принимало значения от 1 до 4. будем подставлять эти значения в (1). 1) при а=1 получаем (16b+c)/59=1 → 16b+c=59. b=59/16=3 (нацело), c=59-16*3=11. искомое число 13b₁₆ 2) при а=2 получаем (16b+c)/59=2 → 16b+c=118. b=118/16=7 (нацело), с=118-16*7=6. искомое число 276₁₆ аналогичным образом находим два остальных числа: 3b1₁₆ и 4ec₁₆ замечание. фактически, мы получаем числа 59х1, 59х2, 59х3, 59х4 и переводим их в шестнадцатиричную систему счисления, поскольку в формуле (1) в скобках записано представление расширенное представление шестнадцатиричного числа.

1. для начала нарисуйте основной контур корабля. для будущего корпуса нарисуйте такую вот несложной формы контур, из которого мы и будем "строить" корабль.2. теперь нужно нарисовать основу мачт старинного деревянного корабля парусника. для этого сначала нарисуйте две длинные вертикальные линии. первая справа будет самая большая и левая чуть короче. пометьте мачты корабля черточками в тех местах, где будут перекладины для парусов.3. на этом этапе нужно нарисовать контуры парусов фрегата. рисуйте их почти прямоугольной формы. на крайней правой мачте их будет три (треугольной формы). на средней мачте будет пять парусов, на последней мачте корабля тоже пять, но только меньшего размера.4. сейчас нам нужно будет нарисовать корму парусного корабля в деталях. нарисуйте боковую линию кормы плавной линией, а также учтите, что задняя часть кормы должна располагаться чуть ниже по отношению к носовой части корабля. выделите носовую часть еще одной вертикальной линией и нарисуйте продольные участки вдоль корпуса.5. на этом этапе рисуем мачты и паруса нашего парусника более детально. прежде всего, удалите ластиком предыдущие ненужные контуры основы корабля и мачт, а после прорисуйте окончательно форму всех парусов и мачт. чтобы вам было легче это сделать, ориентируйтесь на мой рисунок.6. сейчас займемся парусами корабля "основательно" и натянем их полотнище ветром. начнем с первой наклонной мачты. эти паруса будут в виде треугольников. придадим этим парусам небольшой изгиб от бокового ветра. нарисуйте в деталях и основные паруса корабля. для этого вертикальные прямые линии нужно заменить слегка изогнутыми. это создаст впечатление дующего в паруса ветра, а заодно и движения корабля.7. если вы будете рисовать корабль только простым карандашом, то для нанесения теней используйте мягкий карандаш. затените гормональные участки кормы. с теней мачты и паруса на рисунке станут объемными.