Найти значение наибольшего по модулю элемента матрицы, а также индексы всех элементов с найденным значением - C (СИ)

Формулировка задачи:

Помогите а то в программировании не шарю. Не знаю как написать. Помогите пожалуйста.

Решение задачи: «Найти значение наибольшего по модулю элемента матрицы, а также индексы всех элементов с найденным значением»

Листинг программы

program zadacha
dimension a(100,100)
print *,'kol-vo'
read *,n
 
do i=1,4
read *,(a(i,j),j=1,n)
enddo
do i=1,4
do j=1,n
if ((abs(a(i,j)).LT.0).or.(abs(a(i,j)).GT.n)) then
print *,'ne vhodit v diapazon', a(i,j)
stop
endif
enddo
enddo
 
do i=1,4
print *,(a(i,j), j=1,n)
enddo
 
is=1
js=1
s=abs(a(1,1))
do i=1,4
do j=1,n
if ((abs(a(i,j)).GT.s)) then
s=abs(a(,j))
i1=i
j1=j
endif
enddo
enddo
print *,i1,j1,s
end

Объяснение кода листинга программы

Объяснение кода:

Начальная постановка задачи: Найти максимальное значение элемента матрицы по модулю и вывести его индексы.
Ввод данных: Пользователю предлагается ввести количество строк матрицы (n) и затем строки матрицы по одной.
Проверка диапазона: В каждой строке проверяется, принадлежит ли значение элемента матрицы допустимому диапазону (от -n до n). Если элемент выходит за пределы диапазона, то выводится сообщение об ошибке и программа останавливается.
Вывод всех элементов матрицы: Выводятся все элементы матрицы.
Поиск максимального элемента: Инициализируется переменная s значением первого элемента матрицы. Затем в цикле перебираются все элементы матрицы. Если текущий элемент больше по модулю, чем s, то s обновляется, а индексы i1 и j1 сохраняют индексы текущего элемента.
Вывод результата: Выводятся индексы i1, j1 и значение s. Список действий:
Ввод количества строк матрицы (n).
Ввод строки матрицы (n строк).
Проверка диапазона всех элементов матрицы.
Вывод всех элементов матрицы.
Поиск максимального элемента матрицы.
Вывод индексов и значения максимального элемента.