with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
 
procedure Q5I is
    -- Definindo tipos para a matriz
    type Matrix is array (1 .. 10, 1 .. 10) of Integer;  -- Máximo de 10x10
    A : Matrix;  -- Matriz A
    M, N : Integer;  -- Dimensões da matriz
    Soma : Integer := 0;  -- Variável para armazenar a soma dos elementos
    Media : Float;  -- Variável para armazenar a média
 
begin
    -- Entrada da matriz A
    Put("Digite o número de linhas da matriz (m): ");
    Get(M);
    Put("Digite o número de colunas da matriz (n): ");
    Get(N);
 
    Put_Line("Digite os elementos da matriz:");
    for I in 1 .. M loop
        for J in 1 .. N loop
            Put("Elemento (" & Integer'Image(I) & ", " & Integer'Image(J) & "): ");
            Get(A(I, J));
            Soma := Soma + A(I, J);  -- Acumulando a soma dos elementos
        end loop;
    end loop;
 
    -- Calculando a média
    Media := Float(Soma) / Float(M * N);
 
    -- Exibindo a média
    Put_Line("A média aritmética dos elementos da matriz é: " & Float'Image(Media));
end Q5I;
 

d2l0aCBBZGEuVGV4dF9JTzsgdXNlIEFkYS5UZXh0X0lPOwp3aXRoIEFkYS5JbnRlZ2VyX1RleHRfSU87IHVzZSBBZGEuSW50ZWdlcl9UZXh0X0lPOwoKcHJvY2VkdXJlIFE1SSBpcwogICAgLS0gRGVmaW5pbmRvIHRpcG9zIHBhcmEgYSBtYXRyaXoKICAgIHR5cGUgTWF0cml4IGlzIGFycmF5ICgxIC4uIDEwLCAxIC4uIDEwKSBvZiBJbnRlZ2VyOyAgLS0gTcOheGltbyBkZSAxMHgxMAogICAgQSA6IE1hdHJpeDsgIC0tIE1hdHJpeiBBCiAgICBNLCBOIDogSW50ZWdlcjsgIC0tIERpbWVuc8O1ZXMgZGEgbWF0cml6CiAgICBTb21hIDogSW50ZWdlciA6PSAwOyAgLS0gVmFyacOhdmVsIHBhcmEgYXJtYXplbmFyIGEgc29tYSBkb3MgZWxlbWVudG9zCiAgICBNZWRpYSA6IEZsb2F0OyAgLS0gVmFyacOhdmVsIHBhcmEgYXJtYXplbmFyIGEgbcOpZGlhCgpiZWdpbgogICAgLS0gRW50cmFkYSBkYSBtYXRyaXogQQogICAgUHV0KCJEaWdpdGUgbyBuw7ptZXJvIGRlIGxpbmhhcyBkYSBtYXRyaXogKG0pOiAiKTsKICAgIEdldChNKTsKICAgIFB1dCgiRGlnaXRlIG8gbsO6bWVybyBkZSBjb2x1bmFzIGRhIG1hdHJpeiAobik6ICIpOwogICAgR2V0KE4pOwoKICAgIFB1dF9MaW5lKCJEaWdpdGUgb3MgZWxlbWVudG9zIGRhIG1hdHJpejoiKTsKICAgIGZvciBJIGluIDEgLi4gTSBsb29wCiAgICAgICAgZm9yIEogaW4gMSAuLiBOIGxvb3AKICAgICAgICAgICAgUHV0KCJFbGVtZW50byAoIiAmIEludGVnZXInSW1hZ2UoSSkgJiAiLCAiICYgSW50ZWdlcidJbWFnZShKKSAmICIpOiAiKTsKICAgICAgICAgICAgR2V0KEEoSSwgSikpOwogICAgICAgICAgICBTb21hIDo9IFNvbWEgKyBBKEksIEopOyAgLS0gQWN1bXVsYW5kbyBhIHNvbWEgZG9zIGVsZW1lbnRvcwogICAgICAgIGVuZCBsb29wOwogICAgZW5kIGxvb3A7CgogICAgLS0gQ2FsY3VsYW5kbyBhIG3DqWRpYQogICAgTWVkaWEgOj0gRmxvYXQoU29tYSkgLyBGbG9hdChNICogTik7CgogICAgLS0gRXhpYmluZG8gYSBtw6lkaWEKICAgIFB1dF9MaW5lKCJBIG3DqWRpYSBhcml0bcOpdGljYSBkb3MgZWxlbWVudG9zIGRhIG1hdHJpeiDDqTogIiAmIEZsb2F0J0ltYWdlKE1lZGlhKSk7CmVuZCBRNUk7Cg==

MwozCjEKMAowCjAKMQowCjAKMAox

3
3
1
0
0
0
1
0
0
0
1