Найти максимальных элемент в массиве размерностью М*Т.М и N вводятся с клавиатуры. (Паскаль)
Найти максимальных элемент в массиве размерностью М*Т.М и N вводятся с клавиатуры. (Паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы