with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
 
procedure Q5O is
    -- Definindo o tipo para a matriz
    type Matrix is array (1 .. 100, 1 .. 100) of Integer;  -- Máximo de 100x100
    A : Matrix;  -- Matriz A
    N, M : Integer;  -- Dimensões da matriz
    Zero_Count : Integer := 0;  -- Contador de zeros
    Total_Elements : Integer;  -- Total de elementos na matriz
    Percentage : Float;  -- Porcentagem de zeros
 
begin
    -- Entrada da matriz A
    Put("Digite o número de linhas da matriz (n): ");
    Get(N);
    Put("Digite o número de colunas da matriz (m): ");
    Get(M);
 
    Put_Line("Digite os elementos da matriz A:");
    for I in 1 .. N loop
        for J in 1 .. M loop
            Put("Elemento (" & Integer'Image(I) & ", " & Integer'Image(J) & "): ");
            Get(A(I, J));
            -- Contando os zeros
            if A(I, J) = 0 then
                Zero_Count := Zero_Count + 1;
            end if;
        end loop;
    end loop;
 
    -- Calculando o total de elementos
    Total_Elements := N * M;
 
    -- Calculando a porcentagem de zeros
    if Total_Elements > 0 then
        Percentage := (Float(Zero_Count) / Float(Total_Elements)) * 100.0;  -- Conversão para Float
    else
        Percentage := 0.0;  -- Evitar divisão por zero
    end if;
 
    -- Exibindo a porcentagem de zeros
    Put_Line("A porcentagem de elementos 0 na matriz é: " & Float'Image(Percentage) & "%");
end Q5O;
 

d2l0aCBBZGEuVGV4dF9JTzsgdXNlIEFkYS5UZXh0X0lPOwp3aXRoIEFkYS5JbnRlZ2VyX1RleHRfSU87IHVzZSBBZGEuSW50ZWdlcl9UZXh0X0lPOwoKcHJvY2VkdXJlIFE1TyBpcwogICAgLS0gRGVmaW5pbmRvIG8gdGlwbyBwYXJhIGEgbWF0cml6CiAgICB0eXBlIE1hdHJpeCBpcyBhcnJheSAoMSAuLiAxMDAsIDEgLi4gMTAwKSBvZiBJbnRlZ2VyOyAgLS0gTcOheGltbyBkZSAxMDB4MTAwCiAgICBBIDogTWF0cml4OyAgLS0gTWF0cml6IEEKICAgIE4sIE0gOiBJbnRlZ2VyOyAgLS0gRGltZW5zw7VlcyBkYSBtYXRyaXoKICAgIFplcm9fQ291bnQgOiBJbnRlZ2VyIDo9IDA7ICAtLSBDb250YWRvciBkZSB6ZXJvcwogICAgVG90YWxfRWxlbWVudHMgOiBJbnRlZ2VyOyAgLS0gVG90YWwgZGUgZWxlbWVudG9zIG5hIG1hdHJpegogICAgUGVyY2VudGFnZSA6IEZsb2F0OyAgLS0gUG9yY2VudGFnZW0gZGUgemVyb3MKCmJlZ2luCiAgICAtLSBFbnRyYWRhIGRhIG1hdHJpeiBBCiAgICBQdXQoIkRpZ2l0ZSBvIG7Dum1lcm8gZGUgbGluaGFzIGRhIG1hdHJpeiAobik6ICIpOwogICAgR2V0KE4pOwogICAgUHV0KCJEaWdpdGUgbyBuw7ptZXJvIGRlIGNvbHVuYXMgZGEgbWF0cml6IChtKTogIik7CiAgICBHZXQoTSk7CgogICAgUHV0X0xpbmUoIkRpZ2l0ZSBvcyBlbGVtZW50b3MgZGEgbWF0cml6IEE6Iik7CiAgICBmb3IgSSBpbiAxIC4uIE4gbG9vcAogICAgICAgIGZvciBKIGluIDEgLi4gTSBsb29wCiAgICAgICAgICAgIFB1dCgiRWxlbWVudG8gKCIgJiBJbnRlZ2VyJ0ltYWdlKEkpICYgIiwgIiAmIEludGVnZXInSW1hZ2UoSikgJiAiKTogIik7CiAgICAgICAgICAgIEdldChBKEksIEopKTsKICAgICAgICAgICAgLS0gQ29udGFuZG8gb3MgemVyb3MKICAgICAgICAgICAgaWYgQShJLCBKKSA9IDAgdGhlbgogICAgICAgICAgICAgICAgWmVyb19Db3VudCA6PSBaZXJvX0NvdW50ICsgMTsKICAgICAgICAgICAgZW5kIGlmOwogICAgICAgIGVuZCBsb29wOwogICAgZW5kIGxvb3A7CgogICAgLS0gQ2FsY3VsYW5kbyBvIHRvdGFsIGRlIGVsZW1lbnRvcwogICAgVG90YWxfRWxlbWVudHMgOj0gTiAqIE07CgogICAgLS0gQ2FsY3VsYW5kbyBhIHBvcmNlbnRhZ2VtIGRlIHplcm9zCiAgICBpZiBUb3RhbF9FbGVtZW50cyA+IDAgdGhlbgogICAgICAgIFBlcmNlbnRhZ2UgOj0gKEZsb2F0KFplcm9fQ291bnQpIC8gRmxvYXQoVG90YWxfRWxlbWVudHMpKSAqIDEwMC4wOyAgLS0gQ29udmVyc8OjbyBwYXJhIEZsb2F0CiAgICBlbHNlCiAgICAgICAgUGVyY2VudGFnZSA6PSAwLjA7ICAtLSBFdml0YXIgZGl2aXPDo28gcG9yIHplcm8KICAgIGVuZCBpZjsKCiAgICAtLSBFeGliaW5kbyBhIHBvcmNlbnRhZ2VtIGRlIHplcm9zCiAgICBQdXRfTGluZSgiQSBwb3JjZW50YWdlbSBkZSBlbGVtZW50b3MgMCBuYSBtYXRyaXogw6k6ICIgJiBGbG9hdCdJbWFnZShQZXJjZW50YWdlKSAmICIlIik7CmVuZCBRNU87Cg==

NAo0CjAKMAowCjAKMQoyCjMKNQo2CjcKNAo4CjUKNgo3CjgKCg==

4
4
0
0
0
0
1
2
3
5
6
7
4
8
5
6
7
8