Найти максимальных элемент в массиве размерностью М*Т.М и N вводятся с клавиатуры....

Question

Найти максимальных элемент в массиве размерностью М*Т.М и N вводятся с клавиатуры. (Паскаль)

Answer 1

var
A: array [1..100, 1..100] of integer;
max,i,j,m,n: integer;

begin
randomize;
writeln('Введите размеры массива MxN: ');
readln(m,n);
for i:=1 to m do 
 for j:=1 to n do 
  A[i,j]:=random(101);
writeln('Массив: '); 
for i:=1 to m do
 begin 
  for j:=1 to n do write(A[i,j]:4);
  writeln;
 end;
max:=A[1,1]; 
for i:=1 to m do
 for j:=1 to n do
  if max < A[i,j] then max:=A[i,j];
writeln('Максимальный элемент = ',max);
end.