Поиск минимума/максимума и их индексов А[m,n]

Оригинал статьи: http://www.cyberforum.ru/pascal/thread133142.html
Благодарен всем авторам, которые внесли свой вклад в сборку кода.

 
 var a:array[1..100,1..100]of integer;
N, M, i, j, mini, minj, maxi, maxj :integer;
 
begin
 write('Количество рядов=? ');
 readln(N); 
 
 write('Количество столбцов=? ');
 readln(M); {считываем размер матрицы}
 
 for i:=1 to N do 
 begin
 for j:=1 to M do
 begin
  a[i,j]:=random(10);
  write('A[',i,',',j,']=', a[i,j]:2,'  ');
 end;
 writeln;
 end;
 writeln;
 mini:=1;
 minj:=1;
 maxi:=2;
 maxj:=2;
 for i:=1 to N do 
 for j:=1 to M do 
 if a[i,j] > a[maxi, maxj] then
 begin
  maxi := i;
  maxj := j;
 end 
 else 
 if a[i, j] < a[mini, minj] then
 begin
  mini := i;
  minj := j;
 end;
 
 writeln('MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]);
 writeln('MIN = A[',mini,',',minj,'] = ', a[mini, minj]);

end.
  

Если вы нашли ошибку, пожалуйста, выделите фрагмент текста и нажмите Ctrl+Enter.

0 0 голос
Article Rating
Подписаться
Уведомить о
guest
0 Комментарий
Межтекстовые Отзывы
Посмотреть все комментарии