matrice11
(* inserimento valori in matrice con Input *)
(* matrice 2 per 2 *)
(* ciclo DO richiesta dati e ciclo DO stampa *)
(* stampa singolo elemento *)
Do[a[i,j]=Input["intero="],{i,2},{j,2}]
Do[Print[a[i,j]],{i,2},{j,2}]
a[1,1]
3
3
3
4
5
6