Консультация № 138836
31.05.2008, 22:47
0.00 руб.
0 1 1
Дана целочисленая прямоугольная матрица.Определить номер строки и столбца максимального элемента данной матрицы(оформить ввиде процедуры)

Обсуждение

Неизвестный
31.05.2008, 23:08
общий
это ответ
Здравствуйте, Гноць,Руслан,Валериевич!
Элементы матрицы генерируются случайным образом. При желании - их можно вводить вручную. Для этого меняем строку ms[i,j]:=random(100); на readln(ms[i,j]);

Код в приложении.

Приложение:
const n = 5; {размерность матрицы}var ms: array [1..n, 1..n] of integer; {собственно матрица} i,j, x,y, max: integer; {вспомогательные элементы}begin randomize; {включаем генератор случайных чисел} max := -1; {предполагаем, что изначально максимальный элемент равен -1} for i:=1 to n do begin for j:=1 to n do begin ms[i,j]:=random(100); {Элемент матрицы генерируется из промежутка 0..99} write(ms[i,j]:5); {выводим сгенерированный элемент на экран} if ms[i,j]>max then {вычисляем максимальный элемент} begin max := ms[i,j]; x:=i; y := j; end; end; writeln; end; writeln; writeln(‘Max element is ‘, max, ‘[‘,x,‘,‘,y,‘]‘); {выводим результат на экран} readln;end.
Форма ответа