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.
Answers & Comments
Verified answer
Vara: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.