Процедура нахождения мах элемента.

[Другая]

Написать процедуру нахождения мах элемента матрицы. Вызвать процедуру для двух матриц.

На языке Pascal ABC.

Подобная тема есть, но там функция и на делфи.

[ROMA2PVT]

Procedure MaxEl(c:a);
begin
Max := c[1,1];
  XMax := 1;
 YMax := 1;
 For i := 1 to n do
  For j := 1 to m do
   Begin
    If c[i,j]>Max Then
    Begin
    Max := c[i,j];
    XMax := i;
    YMax := j;
    End;
   End;
   writeln('MAX[',Xmax,';',Ymax,']=',max);
   end;

[Другая]

А как вызвать для двух матриц? Просто копировать 2 раза с заменой переменных?

[ROMA2PVT]

program massiv;
Uses
   CRT;
Type
a=array[1..100,1..100] of integer;
var
k:a;
l:a;
i,j,n,m,max,xmax,ymax:integer;

Procedure MaxEl(c:a);
begin
Max := c[1,1];
  XMax := 1;
 YMax := 1;
 For i := 1 to n do
  For j := 1 to m do
   Begin
    If c[i,j]>Max Then
    Begin
    Max := c[i,j];
    XMax := i;
    YMax := j;
    End;
   End;
   writeln('MAX[',Xmax,';',Ymax,']=',max);
   end;

begin
Clrscr;
  randomize;
  write('введите колличество строк: ');
  readln(n);
  write('введите колличество столбцов: ');
  readln(m);
  writeln('Исходная матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      k[i,j]:=random(20)-5;
      write(k[i,j]:3,' ');
    end;
    writeln;
  end;
  writeln;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
     l[i,j]:=random(20)-5;
     write(l[i,j]:3,' ');
    end;
    writeln;
  end;

  MaxEl(k);
  
  MaxEl(l);  
end.

Вот так вызывайте процедуру.Это если у матриц одинаковая размерность.А если разная то тоже генерите вторую со своим ко-вом столбцом и строк.И также вызывайте процедуру.

[Другая]

Спасибо огромное!!! Наконец-то я разобралась с этой темой...)))

[ROMA2PVT]

Не за что.