Lista 04 - UFMG

program l4p16b;
var
C: integer;
ALTURA, SOMA, MEDIA: real;
VETALT: array [1..10] of real;
begin
SOMA := 0;
for C := 1 to 10 do
begin
write('Digite a altura: ');
read(ALTURA);
VETALT[C] := ALTURA;
SOMA := SOMA + VETALT [C];
end;
MEDIA := SOMA / 10;
for C := 1 to 10 do
begin
if ( VETALT [C] > MEDIA ) then
writeLn(VETALT[C]:3:2);
end;
end.
for C = 1 : 10
ALTURA = input('Digite a altura: ');
VETALT(C) = ALTURA;
end
SOMA = 0;
for C = 1 : 10
SOMA = SOMA + VETALT(C);
end
MEDIA = SOMA / 10;
for C = 1 : 10
if ( VETALT(C) > MEDIA )
fprintf(1,'%d ',VETALT(C));
end
end
fprintf(1,'\n');
SOMA = 0;
for C = 1 : 10
ALTURA = input('Digite a altura: ');
VETALT(C) = ALTURA;
SOMA = SOMA + VETALT(C);
end
MEDIA = SOMA / 10;
for C = 1 : 10
if ( VETALT(C) > MEDIA )
fprintf(1,'%d ',VETALT(C));
end
end
fprintf(1,'\n');
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 17