agregados Homogeneos

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program exhomogeneo ;
var
vetornotas : array[1..10] of real;
i:integer;
begin
for i:=1 to 10 do 
begin
write ('digite a nota');
read(vetornotas[i]);
end;
for i:=1 to 10 do 
writeln('nota[',i,']:',vetornotas[i]);
End.