Răspuns :
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.
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.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!