|
program ARR13011;
uses Crt;
var
Seguir : Char;
Acumulador, Contador, Numero : Integer;
begin
ClrScr;
Acumulador := 0;
Contador := 0;
repeat
Write( 'Introduzca un numero
entero: ' );
ReadLn( Numero );
Acumulador :=
Acumulador + Numero;
Contador := Contador
+ 1;
WriteLn( 'Ha introducido ',
Contador, '
numero(s).' );
WriteLn( 'La suma es ',
Acumulador );
WriteLn;
Write( 'Desea introducir otro
numero (s/n)?: ' );
ReadLn( Seguir )
until
Seguir = 'n';
Write( 'La
media aritmetica es ', Acumulador / Contador:0:2 )
end.
|
