Pascal Zim

Program Pzim ;

Uses crt;

Var

valor,cont:integer;

media,soma:real;

Begin

cont:=0; soma:=0 ;media:=0;

writeln('informe um valor inteiro positivo');

readln(valor);

repeat

Begin

soma:=soma+valor;

cont:=cont+1;

writeln('informe um vaalor inteiro ou negativo para sair');

readln(valor);

end

until (valor>=0) ;

writeln('A media é', media);

End.

Program Pzim ;

Uses crt;

Var

valor,cont:integer;

media,soma:real;

Begin

cont:=0; soma:=0 ;media:=0;

writeln('informe um valor inteiro positivo');

readln(valor);

repeat

Begin

soma:=soma+valor;

cont:=cont+1;

writeln('informe um vaalor inteiro ou negativo para sair');

readln(valor);

end

until (valor>=0) ;

writeln('A media é', media);

End.Program Pzim ;

Uses crt;

Var

valor,cont:integer;

media,soma:real;

Begin

cont:=0; soma:=0 ;media:=0;

writeln('informe um valor inteiro positivo');

readln(valor);

repeat

Begin

soma:=soma+valor;

cont:=cont+1;

writeln('informe um vaalor inteiro ou negativo para sair');

readln(valor);

end

until (valor>=0) ;

writeln('A media é', media);

End.Program Pzim ;

Uses crt;

Var

valor,cont:integer;

media,soma:real;

Begin

cont:=0; soma:=0 ;media:=0;

writeln('informe um valor inteiro positivo');

readln(valor);

repeat

Begin

soma:=soma+valor;

cont:=cont+1;

writeln('informe um vaalor inteiro ou negativo para sair');

readln(valor);

end

until (valor>=0) ;

writeln('A media é', media);

End.Program Pzim ;

Uses crt;

Var

valor,cont:integer;

media,soma:real;

Begin

cont:=0; soma:=0 ;media:=0;

writeln('informe um valor inteiro positivo');

readln(valor);

repeat

Begin

soma:=soma+valor;

cont:=cont+1;

writeln('informe um vaalor inteiro ou negativo para sair');

readln(valor);

end

until (valor>=0) ;

writeln('A media é', media);

End.Program Pzim ;

Uses crt;

Var

valor,cont:integer;

media,soma:real;

Begin

cont:=0; soma:=0 ;media:=0;

writeln('informe um valor inteiro positivo');

readln(valor);

repeat

Begin

soma:=soma+valor;