Problem bei Übungsaufgabe

[oxmox]

Hi Leute ^^
und zwar bräucht ich eure Hilfe bei einer eigentlich ziemlich leichten Aufgabe.

Das Programm soll in einem Stringgrid 100 Zufallszahlen ausgeben (10 Spallten x10 Zeilen).
Dabei soll die Summe und der Mittelwert jeder Zeile und Spalte in die dafür vorgegebene Box ausgegeben werden.
Das ganze läuft über ein Array.
Ich zeig euch erstmal die Oberfläche
http://img3.imagebanana.com/view/leo...enannt.bmp.png

hier ist der Code
hab natürlich schon einiges probiert, aber wieder gelöscht, weil es nicht funktioniert hat.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

type feldtyp= array [1..10,1..10] of integer; // <-- Array
var feld: feldtyp;

procedure TForm1.FormShow(Sender: TObject);
var i: integer;
begin
randomize;
for i:=1 to 10 do
begin
stringgrid1.Cells[0,i]:=inttostr(i)+'. Zeile';
stringgrid1.Cells[i,0]:=inttostr(i)+'. Spalte';

stringgrid1.Cells[11,0]:='Summe';
stringgrid1.Cells[12,0]:='Mittelwert';

stringgrid1.Cells[0,11]:='Summe';
stringgrid1.Cells[0,12]:='Mittelwert';
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j, summe: integer;
begin
summe:=0;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
begin
feld[i,j]:= random(101);
stringgrid1.Cells[i,j]:= inttostr(feld[i,j]);
end;
stringgrid1.Cells[11,1]:= inttostr(summe);
end;

end.

Ihr könnt euch, wenn ihr wollt auch die delphi files downloaden
http://rapidshare.com/files/246388666/Array.rar

Danke schonmal

PS: Habe eigentlich schon weitaus schwierigere Aufgaben gelöst, aber hier weiß ich einfach nicht weiter.
da ich dauernd, anstatt der Summe, der einzelnen Zeile, die Summe aller 100 Zufallszahlen ausgegeben bekomme ^^

[Volumen]

DU musst unten ne schleife einbauen die die summena usrechnet und den mittelwert...

[oxmox]

DU musst unten ne schleife einbauen die die summena usrechnet und den mittelwert...

wie gesagt, ich hab schon ´ne Menge probiert,
darunter auch das was du vorgeschlagen hast.
aber danke für die Antwort.

Ich versuchs mal wieder und werde den Code gleich posten.

Edit:

Bin bisschen weiter gekommen.
aber sobald ich alle 10 Summen der 10 Zeilen in einer Schleife berechnen will, bekomme ich ziemlich komische Ergebnisse raus.
// siehe Bild
http://img3.imagebanana.com/view/y0h...enannt.bmp.png

die Summe der einzelnen Spalten fehlt müsste man auch noch i-wie einbienden.
Vllt hat jmd ne Idee

[inout]

Hi oxmox,
Meinst Du so?
Hab da mal was gebastelt: http://ul.to/3358xz

[oxmox]

Hi oxmox,
Meinst Du so?
Hab da mal was gebastelt: http://ul.to/3358xz

Ja genau.
Danke !!