Алгоритм обработки матрицы

[max_scotch]

Помогите пожалуйста решить данную задачу

Даны натуральное число N, действительная квадратная матрица порядка N. Элементы матрицы умножить на 10, если наибольший элемент матрицы (в предположении, что такой элемент единственный) находится на главной диагонали, и на 0.5 в противном случае.

[Serge_Bliznykov]

во-первых, Вы не указали язык программирования.

во-вторых, что Вы не можете сделать?
алгоритм, например, такой:

элемент матрицы 1,1  считаем изначально максимальным.
   IndexRowMax := 1;
   IndexColMax := 1;

перебираем по I все строки матрицы
  перебираем по J все столбцы матрицы
       если текущий элемент больше элемента с индексами IndexRowMax и IndexColMax - 
             то берём индексы текущего элемента как индексы очередного максимального числа.


после окончания циклов мы имеем позицию (индексы) максимального элемента.
если IndexRowMax равено IndexColMax - то максимальный элемент лежит на главной диагонали, иначе - не лежит.

if IndexRowMax = IndexColMax then Koefficient := 10
else Koefficient := 0.5;


перебираем по I все строки матрицы
   перебираем по J все столбцы матрицы
     ЭлементМатрицы[ I,J ] := ЭлементМатрицы[ I,J ] * Koefficient;


Готово!

[max_scotch]

Сообщение от max_scotch

Помогите пожалуйста решить данную задачу

Даны натуральное число N, действительная квадратная матрица порядка N. Элементы матрицы умножить на 10, если наибольший элемент матрицы (в предположении, что такой элемент единственный) находится на главной диагонали, и на 0.5 в противном случае.

прошу прощения... Паскаль

[Serge_Bliznykov]

Сообщение от max_scotch

прошу прощения... Паскаль

вкрапления кода в моём алгоритме как раз на языке Паскаль.

допишите к имеющемуся кусочку объявление переменных, ввод массива, вывод результата. замените псевдокод на реальный код (циклы, например).
и программа готова.