Question

7. Se da un tablou bidimensional C[1..3, 1..4] de numere reale. Sa se serie un program Pascal care va calcula media numerelor impare din tablou.​

Answer 1

Răspuns:

program MediaImpare;

var i,j,k:integer;

   c:array[1..3,1..4] of integer;

   mni:integer;

   media:real;

begin //pp

    writeln('Introduceti elemente tablou');

    for i:=1 to 3 do begin

       for j:=1 to 4 do

               begin

               write('c[',i,j,']=');

               read(c[i,j]);

               end;

               writeln;

                     end;

    mni:=0;k:=0;

    writeln('Elemente tablou');

    for i:=1 to 3 do begin

       for j:=1 to 4 do begin

               write(c[i,j],' ');

               if (c[i,j] mod 2=1) then   begin

                                          mni:=mni+c[i,j];

                                          k:=k+1;

                                          end;

                        end;

               writeln;

                        end;

    media:=mni div k ;

    writeln('Media numere impare este :',media:2:2);

    readln;

    readln;

end.