Question

Se consideră tabloul A[1..n,1..m] de numere intregi, unde n,m<=20.Sa se scrie un program care determină elementul minim si pozitia lui.(IN PASCAL)

Answer 1

Program Tema;

var a:array[1..20,1..20] of integer;
    i,j,n,m,min,min_i,min_j:integer;
Begin
min:=maxint;
min_i:=1;
min_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;
end;
readln;
end;

writeln('Minimul matricii bidimensionale este: ',min);
writeln('Pozitia elementului minim este: linia ',min_i,' coloana ',min_j);
End.