Найти место положение и значение максимального элемента массива 7 ** 7. Написать **...

Question

Найти место положение и значение максимального элемента массива 7 на 7. Написать на паскале

Answer 1

Const
  n=7;
var
  a:array[1..n,1..n] of integer;
  i,j,imax,jmax:integer;
begin
  Randomize;
  imax:=1; jmax:=1;
  Writeln('Исходный массив');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(90)+10;
      Write(a[i,j]:3);
      if a[i,j]>a[imax,jmax] then
        begin imax:=i; jmax:=j end;
      end;
    Writeln
  end;
  Writeln('Max[',imax,',',jmax,']=',a[imax,jmax])
end.

Тестовое решение
Исходный массив
 76 22 34 68 78 87 98
 67 76 68 10 70 63 68
 78 83 88 38 89 83 88
 41 70 55 59 34 37 86
 48 55 86 64 98 92 59
 14 47 94 74 99 15 52
 35 91 31 89 31 16 91
Max[6,5]=99

Answer 2

//Pascal ABC.NET сборка 1256

Const
 n=7;

Var
 ma:array[1..n,1..n] of integer;
 i,j,max,maxi,maxj:integer;
begin
randomize;
max:=-1;
writeln('Matrix:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     ma[i,j]:=random(1000);
     write(ma[i,j]:4);
     if max      begin
       max:=ma[i,j];
       maxi:=i;
       maxj:=j;
      end;
    end;
   writeln;
  end;
writeln('Max=',max);
writeln('Строка:',maxi);
write('Столбец:',maxj);
end.