integer
irgendwie hab ich einfach nur ne totale Denkblockade
so siehts bis jetzt aus
procedure TForm1.Button6Click(Sender: TObject);
var summe:integer; mitte:real;
i: integer;
begin
edit2.Visible:=true;
for i := Low(Myarray) to High(Myarray) do
summe := Integer + Myarray[i];
mitte := summe / 4;
end;
edit2.Text:= inttostr(summe);
end;