Составить процедуру для нахождения индексов максимального элемента квадратной матрицы

@DiMaS_777 · Регистрация: 17.11.2016

Студворк — интернет-сервис помощи студентам

помогите с задачей!
Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m).

@Puporev · 01.12.2016, 08:09

Pascal

uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of integer;
procedure matrix(var a:mtr;var n:byte;c:char);
var i,j:byte;
begin
repeat
write('Введите размер матрицы ',c,' от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end;
procedure indexy(a:mtr;n:byte;var imx,jmx:byte);
var i,j:byte;
begin
imx:=1;
jmx:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>a[imx,jmx] then
 begin
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальный элемент=',a[imx,jmx],' его индексы: [',imx,',',jmx,']');
end;
var c,p:mtr;
    n,m,a,b,d,e:byte;
begin
clrscr;
matrix(c,n,'C');
indexy(c,n,a,b);
matrix(p,m,'P');
indexy(p,m,d,e);
readln
end.

@DiMaS_777 0 / 0 / 0 Регистрация: 17.11.2016 Сообщений: 21
		1
	Составить процедуру для нахождения индексов максимального элемента квадратной матрицы 30.11.2016, 23:37. Показов 2599. Ответов 1 Метки нет (Все метки) помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m). 0

Опции темы

Составить процедуру для нахождения индексов максимального элемента квадратной матрицы

Решение