Question

ajutatima va rog frumos dau coroana
programul trebuie sa fie rezolvat in pascal Se considera un tablou bidimensional.Elaborati un program care va afisa pe ecran elemntul maxim de pe fiecare linie
rapid va rog frumos​

Answer 1

Răspuns:

program MaximePLinie;

const nmax=100;

var A:array[1..nmax,1..nmax]of integer;

   B:array[1..nmax]of integer;

   n,m,i,j:integer;

begin

 write('Dati nr. de linii, n= '); read(n);

 write('Dati nr. de coloane, m= '); read(m);

 writeln('Dati elementele matricei:');

 for i:=1 to n do

   begin

     read(B[i]); a[i,1]:=B[i];

     for j:=2 to m do

       begin

         read(a[i,j]);

         if a[i,j]>B[i] then B[i]:=a[i,j];

      end;

   end;

  writeln('Elementele maxime pe fiecare linie:');

  for i:=1 to n do

     write(B[i], ' ');

end.

Explicație:

generam vectorul liniar B, în care vom păstra maximele pe linii.