Program Tema;
var a:array[1..20,1..20] of integer;
i,j,n,m,min,max,min_i,min_j,max_i,max_j:integer;
Begin
min:=maxint;
min_i:=1;
min_j:=1;
max:=-maxint;
max_i:=1;
max_j:=1;
writeln('Introduceti nr linii:');
readln(n);
writeln('Introduceti nr coloane');
readln(m);
writeln('Introduceti matricea:');
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i][j]);
if a[i][j]<min then
begin
min:=a[i][j];
min_i:=i;
min_j:=j;
end;
if a[i][j]>max then
begin
max:=a[i][j];
max_i:=i;
max_j:=j;
end;
end;
readln;
end;
writeln('Minimul matricii bidimensionale este: ',min);
writeln('Pozitia elementului minim este: linia ',min_i,' coloana ',min_j);
writeln('Maximul matricii bidimensionale este: ',max);
writeln('Pozitia elementului maxim este: linia ',max_i,' coloana ',max_j);
End.
