Еще вариант решения. Работает на первом минимальном элементе.
var a: array[1..8, 1..10] of integer; min, i, j, im, jm: integer; begin min := MaxInt; //Заполнение матрийцы, вывод и поиск минимального for i := 1 to 8 do begin for j := 1 to 10 do begin a[i, j] := random(21) - 10; if a[i, j] < min then begin min := a[i, j];im := i;jm := j; //в im и jm индексы минимального end; write(a[i, j]:4); end; writeln; end; writeln('Первое минимальное a[', im, ',', jm, '] = ', min:3); //Удаление строки и столбца for i := im to 7 do for j := 1 to 10 do a[i, j] := a[i + 1, j]; for i := 1 to 7 do for j := jm to 9 do a[i, j] := a[i, j + 1];
//Вывод матрицы for i := 1 to 7 do begin for j := 1 to 9 do write(a[i, j]:4); writeln; end; end.
1 0 0 начало 2 5 0 налить 5-ти литровое из родника 3 0 5 перелить из 5-ти в 9-ти л 4 5 5 налить в 5-ти из родника 5 1 9 из 5-ти долить 9-ти л 6 1 0 вылить воду из 9-ти л 7 0 1 из 5-ти л перелить в 9-ти 8 5 1 наполнить 5-ти л из родника 9 0 6 из 5-ти л перелить в 9-ти 10 5 6 наполнить 5-ти л из родника 11 2 9 из 5-тил долить 9-ти л 12 2 0 вылить из 9-ти л 13 0 2 из 5-ти л перелить в 9-ти л 14 5 2 налить из родника в 5-ти л 15 0 7 вылить из 5-ти л в 9-ти л 16 5 7 набрать из родника в 5-ти л 17 3 9 долить 9-ти л из 5-тил и в 5-ти л останутся заветные 3 литра 18 3 0 выливаем из 9-ти л 19 КОНЕЦ
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Найдите сумму чисел 1b(16) и 235(8); ответ дать в десятичной системе счисления
1B(16) = 27(10)
235(8) = 157(10)
27+157=184