soma de um array

Delphi

21/02/2007

boa noite estou tentando criar um array simples onde sera cadastro nome do aluno e nota apos cadastrar tudo quero tirar a media da sala

por exemplo

um array para o aluno e outro para nota depois quero tirar a media de nota da sala alguem sabe por favor? valew


Ciotti

Ciotti

Curtidas 0

Respostas

Thiago Vidal

Thiago Vidal

21/02/2007

o modo mais simples, acredito que seja:

function Media(var A: array of Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i in A do
    Result := Result + i;

  Result := Result div Length(A);
end;


se não me engano o ´for...in´ só funciona a partir do Delphi 2006, se o seu Delphi for mais antigo, o ideal é usar:

for i := Low(A) to High(A) do
  Result := Result + A[i];


boa sorte!


GOSTEI 0
POSTAR