Question

urrrrrrrrggggggeeeennnnt! 

PASCAL

Se citeste matricea A, cu m linii si n coloane.

a) Scrieti un program care determina media aritmetica a elementelor din matrice.

b) Scrieti un program care determina cate elemente sunt pare si cate elemente sunt impare.

Answer 1

a)
program matrice;
var i,j,m,n,media,sum,contor;
begin
sum=0;
contor=0;
    for( i=1; i<=m; i++)
    for(j=1; j<=n; j++)
  begin
           sum=sum+a[i][j];
           contor=contor+1;
end;
  media=sum/contor;
end;
b)
program matrice2;
var i,j,m,n,par,impar;
begin
  par=0;
  impar=0;
    for( i=1; i<=m; i++)
    for(j=1; j<=n; j++)
    begin
       if (a[i][j] mod 2==0 )
            par=par+1;
         else
            impar=impar+1;
   end;
  writeln("nr elem pare este",par);
  writeln("nr elem impare este",impar);
end;