Напишите программу на языке Паскаль которая выводит порядковый номер минимального элемента в двухмерном массиве

Предыдущий
вопрос Следующий
вопрос

Приведенный ниже код на языке Паскаль находит порядковый номер минимального элемента в двумерном массиве:

program FindMinElementIndex;
const
Rows = 3;
Cols = 3;
var
arr: array[1..Rows, 1..Cols] of integer;
i, j, minVal, minI, minJ: integer;
begin
minVal := MaxInt;
// Ввод значений в двумерный массив
for i := 1 to Rows do
for j := 1 to Cols do
begin
write('Введите arr[', i, '][', j, ']: ');
readln(arr[i, j]);
if arr[i, j] < minVal then
begin
minVal := arr[i, j];
minI := i;
minJ := j;
end;
end;
// Вывод значений массива
writeln('Введенный массив:');
for i := 1 to Rows do
begin
for j := 1 to Cols do
write(arr[i, j], ' ');
writeln;
end;
// Вывод порядкового номера минимального элемента
writeln('Минимальный элемент: ', minVal);
writeln('Порядковый номер минимального элемента: ', (minI - 1) * Cols + minJ);
end.

Пользователю будет предложено ввести значения в двумерный массив, после чего программа определит порядковый номер минимального элемента и выведет эту информацию на экран.