PASCAL

ESMPIO DEL LINGUAGGIO PASCAL

MEDIA DI N NUMERI :

PROGRAM MEDIA (INPUT,OUTPUT);
VAR:
N,NUM,I,CONT,MEDIA:REAL;
BEGIN
WRITE ('DI QUANTI NUMERI è LA MEDIA :');
READLN (N);
IF (N<0) OR (N=0) THEN WRITELN ('DATI ERRATI')
  ELSE
  BEGIN
   I:=1;
   CONT:=0;
   REPEAT
    WRITE ('INTRODUCI',I,'° NUMERO :');
    READLN (NUM);
     CONT:=CONT+NUM;
    I:=I+1;
   UNTIL (I=N+1)
  END;
MEDIA:=CONT/N;
WRITE ('LA MEDIA è :')
WRITELN (MEDIA);
END.