|
Registriert seit: 10. Sep 2008
22 Beiträge
|
Re: Mittelwert von Myarray
10. Sep 2008, 20:33
procedure TForm1.Button6Click(Sender: TObject);
var
i,summe:integer; mitte:real;
begin
edit2.Visible:=true;
summe := 0;
for
i := Low(Myarray) to High(Myarray) do
summe := Summe + Myarray[i];
mitte := summe / 4;
summe := summe + Myarray[i];
end;
edit2.Text:= inttostr(summe);
end;
Dann heisst es allerdings bei summe := summe + Myarray[i]; Inkompatible Datentypen
|