найти максимальных элемент в массиве размерностью М*Т.М и N вводятся с клавиатуры. (Паскаль)
Answers & Comments
Royal21var 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.
Answers & Comments
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.