Найти минимальный и максимальный элементы в матрице их номера.Формат вывода:Минимальный...

Question

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

Answer 1

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]begin
min:=a[i,j];
x1:=i;
y1:=j;
end else 
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.

Comments

Мне в кумире надо было))