Найти минимальный и максимальный элементы в матрице их номера.Формат вывода:Минимальный элемент    A[3,4]=11Максимальный элемент  A[2,2]=89Кумир!!!Полное решение!Заранее большое спасибо!! :3

Найти минимальный и максимальный элементы в матрице их номера.Формат вывода: Минимальный элемент    A[3,4]=11 Максимальный элемент  A[2,2]=89 Кумир!!!Полное решение!Заранее большое спасибо!! :3
Гость
Ответ(ы) на вопрос:
Гость
Const n=10; m=10; var a:array [1..n,1..m] of integer; i,j,min,x1,y1,max,x2,y2:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write (a[i,j]:4); end; writeln; end; min:=a[1,1]; max:=a[1,1]; x1:=1; x2:=1; y1:=1; y2:=1; for i:=1 to n do for j:=1 to n do if a[i,j]max then begin  max:=a[i,j]; x2:=i; y2:=j; end; writeln ('Минимальный элемент    A[',x1,',',y1,']=',min); writeln (',Максимальный элемент    A[',x2,',',y2,']=',max); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы