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 pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!