Составить функцию для определения минимального элемента матрицы NxN

[sergant71]

Составить функцию для определения минимального элемента матрицы NxN. используя данную функцию, определить значение минимального элемента заданной матрицы и, если оно отлично от нуля, увеличить каждый элемент главной диагонали матрицы на модуль этого значения и вывести полученную матрицу на экран. В противном случае отпечатать сообщение «Элемент не равен нулю».

[Alex11223]

Проблема-то в чем? Покажите наработки, расскажите, что не получается. Или напишу за 100р. Вебмани или ЯД (контакты в подписи).

[Sna1L]

Функция это 2 цикла(один в другом). Вам потребуются лишь 5 переменных, а именно: два счетчика(i,j например) и переменные для записи индекса и значения максимального элемента(max,ind1,ind2).

for i:=1 to n do
for j:=1 to n do
if ar[i,j]>max then
begin
max:=ar[i,j];
ind1:=i;
ind2:=j;
end;

Ну а дальше разберётесь. Потребуется условие и еще один цикл

[Serge_Bliznykov]

В противном случае отпечатать сообщение «Элемент не равен нулю».

думаю, что в противном случае сообщение должно быть "Минимальный элемент равен нулю"!