Дана матрица размера m*n. Найти ее максимальный элемент. Pascal ABC

Question

Гость

Информатика

5 июня, 17:23

Дана матрица размера m*n. Найти ее максимальный элемент. Pascal ABC

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Лев Новиков · Answer 1

Var a:array[1 ... 100,1 ... 100] of integer; b, i, j:integer; begin write ('Размеры матрицы: '); readln (m, n); for i:=1 to m do for j:=1 to n do readln (a[i, j]); b:=a[1,1]; for i:=1 to m do for j:=1 to n do if a[i, j]>b then b:=a[i, j]; writeln ('Максимальный элемент вашей матрицы равен ', b); end.