Este programa regista os números e alturas de cinco alunos duma turma e depois calcula a soma e a média destas. Diz-nos também o número do mais alto e o do mais baixo.

Código:

Program alturas ;
var altura:array [1..5] of integer;
i,soma,n,alturamax,alturamin, nmin,nmax:integer;
media:real;
var esc:char;
Begin
soma:=0;
alturamax:=0;
alturamin:=250;
for i:=1 to 5 do
begin
write (i,': Escreve a altura do gajo ',i,': ');
readln (altura[i]);
write (' E o número dele, já agora : ');
read (n);
soma:=soma+altura[i];
if altura[i]>alturamax then
begin
alturamax:=altura[i];
nmax:=n;
end;
if altura[i]<alturamin then
begin
alturamin:=altura[i];
nmin:=n;
end;
writeln ('');
end;
writeln('');
writeln ('O gajo número ',nmax,' é o gigante, com ',alturamax,' cm de altura.');
writeln ('O gajo número ',nmin,' é o anão da turma, com ',alturamin,' cm de altura.');
media:=soma/5;
writeln('');
writeln('A soma das alturas é ', soma,' cm.');
writeln('A média das alturas é ', media:5:2,' cm.');
End.

Voltar