Question

Se consideră tabloul Y[1..n,1..m] de numere intregi, unde n,m<=20 .Sa se scrie un program care determină elementul minim si elementul maxim, precum și pozitia acestora.

Answer 1

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.