algorisme mitja_ca

var

	i: enter;
	n: enter;
	suma: enter;
	mitja: real;
	coeficientObertura: real;
	minNumber: enter;
	maxNumber: enter;

fvar

i:= 1;
minNumber:= 1001;
maxNumber:= 0;


mentre i<-10 fer

	n:= readInteger();

		mentre n < 1 i n > 1000 fer
			n:= readInteger();
		fmentre

	si n > maxNumber fer

		maxnumber:= n
	fsi

	si n < minNumber fer

		minNumber:= n
	fsi

	suma:= suma + n


	i:=i+1
fmentre

mitja:= suma / 10

coeficientObertura:= maxNumber / minNumber

writeFloat(mitja)

writeFloat (coeficientObertura)

falgorisme.