Exame Especial - UFMG

program EE2;
const
N = 50;
var
C, D : integer;
SOMA, MEDIA, M1, M2, AUX : real;
VET: array [1..N] of real;
begin
SOMA := 0;
for C := 1 to N do
begin
write('Digite um valor: ');
readLn(VET[C]);
if ( ( VET[C] > M1 ) or ( C = 1) ) then
begin
M2 := M1;
M1 := VET[C];
end
else if ( ( VET[C] > M2 ) or ( C = 2) ) then
begin
M2 := VET[C];
end;
SOMA := SOMA + VET[C];
end;
writeLn('1o. Maior: ',M1);
writeLn('2o. Maior: ',M2);
MEDIA := SOMA / N;
writeln('A media dos valores digitados eh: ',MEDIA);
for C := 1 to N-1 do
for D := 1 to N-C-1 do
if ( VET[D] > VET[D+1] ) then
begin
AUX := VET[D];
VET[D] := VET[D+1];
VET[D+1] := AUX;
end;
writeLn('Valores maiores que a media');
for C := 1 to N do
if ( VET[C] > MEDIA ) then
writeLn(VET[C],' ');
end.
N = 50;
SOMA = 0;
for C = 1 : N
VET(C) = input ('Digite um valor: ');
if ( ( VET(C) > M1 ) | ( C == 1) )
M2 := M1;
M1 := VET(C);
elseif ( ( VET(C) > M2 ) | ( C == 2) )
M2 := VET(C);
end
SOMA := SOMA + VET(C);
end;
fprintf(1,'1o. Maior: %f\n',M1);
fprintf(1,'2o. Maior: %f\n',M2);
MEDIA := SOMA / N;
fprintf(1,'A media dos valores digitados eh: %f\n',MEDIA);
for C = 1 : N-1
for D 1 : N-C-1
if ( VET(D) > VET(D+1) )
AUX = VET(D);
VET(D) = VET(D+1);
VET(D+1) = AUX;
end
end
end
fprintf(1,'Valores maiores que a media\n');
for C = 1 : N
if ( VET(C) > MEDIA )
fprinf(1,'%d ',VET(C));
end
end
fprintf(1,'\n');
end
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 4