Дана матрица А размерностью N*M.Значения элементов-произвольные числа.Найти Max и Min значения и их местонахождение в исходной матрице.

1

Ответы и объяснения

2013-10-06T19:25:23+04:00
Const n = 5;
const m = 5;
var a:array [1..n,1..m] of integer;
     i,j,k,l,max,min:integer;
begin
  randomize;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      a[i,j]:=random(30)+1;
      write (a[i,j]:4);
     end;
    writeln;
   end;
  max:=1;
  min:=1;
  k:=1;
  l:=1; 
  for i:=1 to n do
   for j:=1 to m do 
    if a[i,j]>a[max,k] then
     begin
      max:=i;
      k:=j;         
     end else if a[i,j]<a[min,l] then
     begin
      min:=i;
      l:=j;
     end;
  writeln ('Max: ',a[max,k],'. Index: [',max,',',k,']');
  writeln ('Min: ',a[min,l],'. Index: [',min,',',l,']');
end.