ciclo6 

(* richiesta dati con DO  *)
(* richiesta ripetuta per x variabile da 1 a n *)

somma=0;media=0;n=5;
Do[{x=Input["intero="],somma=somma+x},{x,n}]
Print["somma=",somma]
media=(somma/n)//N;
Print["media=",media]


somma=15
media=3.

(* assegna parametro n con INPUT *)
somma=0;media=0;
n=Input["numero dati da inserire="];
Do[{x=Input["intero="],somma=somma+x},{x,n}]
Print["somma=",somma]
media=(somma/n)//N;
Print["media=",media]


somma=15
media=3.

(* assegna parametro n con INPUT per VETTORE *)
(* stampa vettore inserito *)
n=Input["numero elementi vettore="];
Do[v[i]=Input["intero="],{i,n}]
Do[Print[v[i]],{i,n}]

5
6
(* assegna parametri e dati per MATRICE *)

r=Input["numero righe="];
c=Input["numero colonne="];
Do[m[i,j]=Input["intero="],{i,r},{j,c}]
Do[Print[m[i,j]],{i,r},{j,c}]

3
4
5
6

torna a inizio