Как сделать так, чтобы программа находила разность между максимальными этих 2 матриц - Turbo Pascal

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

дана функция, которая находит максимальный элемент матрицы, в основном теле ползователь рандомом задает 2 матрицы, как сделать так, чтобы программа находила разность между максимальными этих 2 матриц и выводила на экран

Код к задаче: «Как сделать так, чтобы программа находила разность между максимальными этих 2 матриц - Turbo Pascal»

textual
type mtr=array[1..10,1..10] of integer;
function max(a:mtr;m,n:integer):integer;
var i,j,m:integer;
begin
m:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>m then m:=a[i,j];
max:=m;
end;
..................
write(abs(max(a,m1,n1)-max(b,m2,n2));

10   голосов, оценка 3.900 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы