Question

Se considera tabloul A[1..n,1..n],n<_(mai mic si egal)100 de numere reale dinsticte.
Scrie un program care determina linia care contine elementul cu valoare minima.

Va rog sa fie program pascal cu programe simple de cl 10!

Answer 1

program LiniaCuElementMinim;

var T: array[1..100, 1..100] of real;

   n, i, j, linie: integer;  minim:real;

begin

 write('n='); read(n);

 writeln('introdu ',n*n,' elemente ale tabloului bidimensional:');

 for i:=1 to n do

    for j:=1 to n do

          read(T[i,j]);

 minim:=T[1,1]; linie:=1;  {se considera ca minim e primul}

 for i:=1 to n do

   for j:=1 to n do

     if T[i,j]<minim then begin minim:=T[i,j]; linie:=i; end;

 writeln(' elementul minim se afla pe linia ', linie);

end.