Предмет: Информатика,
автор: CrossoverVamp
Составьте программу ,определяющую максимальный элемент и его индексы матрицы А размером M x N
Ответы
Автор ответа:
0
var a:array[1..10,1..10]of integer;
неудобно
var a:array[1..10,1..10]of integer;
max,i1,j1,i,j,k,m,n:integer;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
max:=a[1,1];
i1:=1;
j1:=1;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]>max then begin max:=a[i,j]; i1:=i; j1:=j; end;
end;
end;
writeln(max,' ',i1,' ',j1);
end.
max,i1,j1,i,j,k,m,n:integer;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
max:=a[1,1];
i1:=1;
j1:=1;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]>max then begin max:=a[i,j]; i1:=i; j1:=j; end;
end;
end;
writeln(max,' ',i1,' ',j1);
end.
Похожие вопросы
Предмет: Математика,
автор: adidakf200816
Предмет: Физика,
автор: konyakhina1986
Предмет: Алгебра,
автор: m0084396
Предмет: Математика,
автор: Аноним
Предмет: Обществознание,
автор: Аня27Бушуева10