Este programa calcula a média dos valores das classificações do aluno das suas diferentes disciplinas, consistindo num algoritmo que calcula a média de um número de fatores introduzido também pelo utilizador.
Código:
Program Media_sec ;
var soma, nota, i, n: integer;
var media: real;
esc: char;
Begin
repeat
clrscr;
write ('Quantas disciplinas tem?');
readln (n);
soma:=0;
for i:=1 to n do
begin
write ('Nota',i,'=');
readln (nota);
soma:=soma+nota;
end;
media:=(soma/n);
writeln ('Média=',media:5:2);
writeln ('Deseja fechar o programa? (s/n)');
readln (esc);
until esc= 's'
End.