Question

Se da tabloul bidimensional patrat de n linii si m coloane. De scris un program care va calcula media elementelor sub diagonala principala si produsul dedeasupra liniei principale.
In limbajul de programare Pascal!

Answer 1

program sumaProdus;

const nmax=30;

type Matrice = array[1..nmax, 1..nmax] of integer;

var a: Matrice;

   n, suma, produs, i, j, contor: integer;

   media:real;

begin

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

 writeln(' introdu componentele matricei: ');

 for i:=1 to n do

   for j:=1 to n do

      read(a[i,j]);

 suma:=0; produs:=1;

 for i:=1 to n do

   for j:=1 to n do

     begin

        if i>j then begin suma:=suma+a[i,j]; inc(contor); end;

        if i<j then produs:=produs*a[i,j];

     end;

  media := suma/contor;

  writeln('media=', media:0:2);

  writeln('produs=', produs);

end.