Ajuda com algoritmo ?

Oi Matheus, da uma olhada no fonte abaixo, descubra a lógica mínima do programa, troque o 5 do for por 50 e é isso q vc queria. Espero ter ajudado. 

Ah, deixei um outro probleminha no exemplo, mas esse vc vai ter de achar, estudar e corrigir para sanar.  

Bons estudos,

program faznada2;
var idade: integer;
somaidade: integer;
i: integer;
maioridade: integer;
menoridade: integer;
Begin
maioridade:=0;
menoridade:=0;
somaidade:=0;
i:=0;
for i:=1 to 5 do
begin
writeln('Entre com a idade:');
read(idade);
if (idade > maioridade) then
maioridade:=idade;
if (idade < menoridade) then
menoridade:=idade;
somaidade:=somaidade+idade;
end;

writeln('Soma das idades=',somaidade);
writeln('Maior idade =',maioridade);
writeln('Menor Idade =',maioridade);
writeln;
writeln('Tecle enter para continuar...');

read(idade);

End.

ops, em tempo:

1)

writeln('Maior idade =',maioridade);

writeln('Menor Idade =',maioridade);   (é menoridade), ficando assim:

writeln('Menor Idade =',menoridade);

2)  lá no inicio...

menoridade:=0;

trocar por 

menoridade :=999;

Desculpa ai o fora...

Pascal é uma linguagem de programação estruturada, que recebeu este nome em homenagem ao matemático e físico Blaise Pascal.

Abaixo é mostrado o código do programa:

program IDADES;

var

idades[50] : integer;

soma : integer;

maior: integer;

menor: integer;

cont: integer;

begin

for cont:=1 to 50 do

begin

readln(idades[cont]);

end;

soma:=0;

for cont:=1 to 50 do

begin

soma:=soma+idades[cont];

end;

maior:=0;

for cont:=1 to 50 do

begin

if (idades[cont]>maior) then maior:=idades[cont];

end;

menor:=2000000;

for cont:=1 to 50 do

begin

if (idades[cont]<menor) then menor:=idades[cont];

end;

writeln(soma);

writeln(menor);

writeln(maior);

end.

O Código acima mostra como ler a idade de 50 pessoas e exibir a soma das idades, a maior e a menor idade lidas em pascal.