Como tirar média na estrutura de Vetores?

[Thetheu Diias]

Boa tarde. como tirar a média deste programa ?

- - - - - - - - - - - - - - - - - - - - - - - - - - - -  - - - - - - - - - - - - -

program numero;

uses crt;

var
i,qt: integer;
v: array[1..3] of real;
media: real;

begin
 
  write('informe a quantidade de notas: ');
  read(qt);
 
  for i:= 1 to qt do
  begin
    write('digite a ', i, 'ª nota: ');
    read(v[i]);
  end;
 
  for i:= 1 to qt do
  begin
    writeln(i, 'ª nota: ',v:2:2);
    media:= (v[i])/qt;
  end;
 
  writeln('media: ', media);
  readkey;
end. 

 

 

adicionado 2 minutos depois

@thetheu diias @simon viegas

[Simon Viegas]

Olá @Thetheu Diias.

 

1) Não use read, use somente readln

 

Resumidamente é isso: troque os read por readln.

 

Um pouco sobre aqui:

 

2) Cálculo de média

 

Para calcular algo, é recomendado primeiro entender como funciona esse algo...

 

Um pouco sobre aqui:

https://pt.wikipedia.org/wiki/Média_aritmética

 

Então, veja o que você precisa para calcular uma média, "encontre" esses valores e calcule.

 

***

 

No aguardo.