Lista de Exercicios

6. São dados 4 valores. Elaborar um programa que mostre os valores que forem superiores a média aritmética dos mesmos.

program P6;
uses crt;
var
v1, v2, v3, v4, m : real;
function ler(x : char) : real;
var
z : real;
begin
write ('Entre com a variável V', x, ' :' );
readln (z);
ler := z;
end;
{programa principal}
begin
clrscr;
gotoxy (20,2);
highvideo;
write ('PROGRAMA FEITO POR KARINE E MARIA DA GLORIA');
lowvideo;
gotoxy(8,3);
write ('Calcula os valores de V1, V2, V3 e V4 que estão acima da m‚dia,');
gotoxy(28,4);
write ('utilizando vari veis simples.');
gotoxy (1,7);
v1 := ler ('1');
v2 := ler ('2');
v3 := ler ('3');
v4 := ler ('4');
m := (v1+v2+v3+v4)/4;
gotoxy(1,12);
writeln('Valores acima da m‚dia:');
if v1 > m then
writeln (v1:5:2);
if v2>m then
writeln (v2:5:2);
if v3>m then
writeln (v3:5:2);
if v4>m then
writeln (v4:5:2);
repeat until keypressed;
end.

Para retornar a tela principal clique aqui.