Question

1. Faça uma função que receba uma matriz 4 x 4 e retorne quantos valores maiores do que 10 ela possui.

Answer 1

Program pzim;

Var
l,c,total_maior: integer ;
valor : Array [1..4,1..4] of integer ;

Begin
  For L:= 1 to 4 do
    begin 
        For C: 1 to 4 do
          Begin
              Writeln ('Digite o valor: ');
              Readln (valor[l,c]) ;
                if (valor[L,C] > 10) then
                    total_maior := total_maior + 1 ;
          end;
    end;
 writeln ('O total de valores maiores de 10 são: ',total_maior);
end.