Pascal. , . информатика 10 класс матрица a состоит из 8 строк и 10 столбцов. найти минимальный элемент и удалить строку и столбец, на пересечении которых он находится.

Еще вариант решения. работает на первом минимальном элементе. 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. тестовое решение:     3    3    9    7    0    6  -6  -3  -9  10     7    8  -3  -4  -9    0    9  -5  -3    8     3    2  -7    1    6  -6  -8  10  -7    1     2    0  -9    2    1  -2    7    1    7    5   -6  -1  -7  -6  -7    7 -10    6    9  -6   -3  -7    9    9    3 -10  -1  -3 -10  -4     4  -6  -7    0  -3  -4    7    5    6    3     4  -2  -1    3    4  -7  -1    9  -2    9 первое минимальное a[5,7] = -10     3    3    9    7    0    6  -3  -9  10     7    8  -3  -4  -9    0  -5  -3    8     3    2  -7    1    6  -6  10  -7    1     2    0  -9    2    1  -2    1    7    5   -3  -7    9    9    3 -10  -3 -10  -4     4  -6  -7    0  -3  -4    5    6    3     4  -2  -1    3    4  -7    9  -2    9

Дано целое число м. определить делиться ли м нацело на 9. сумма цифр м должна делиться нацело на 9 ответ в приложении.