Информатика, опубликовано 2018-08-22 19:23:07 by Гость
Найти максимальных элемент в массиве размерностью М*Т.М и 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 writeln(Максимальный элемент = ,max);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на