Delphi matice úkol – Delphi – Fórum – Programujte.com

Zdravím, potřeboval bych prosím pomoct s úkolem v Delphi.

Takhle zní zadání úkolu:

Vstupní údaje: matice o m řádcích a n sloupcích , prvky čísla celá

1)Naplňte matici pomocí generátoru náhodných čísel celými od 10 do 90.
2)Matici vytiskněte po řádcích ve tvaru tabulky
3)Zjistěte aritmetický průměr řádků matice, výsledky vytiskněte vedle řádků. Použijte funkci pro výpočet ar.průměru prvků v řádku.
4 Setřiďte sloupce vzestupně podle hodnot v prvním řádku a vytiskněte novou matici.
5) Použijte proceduru pro výměnu sloupců.

Z toho 1. mám hotovou, 2. není asi až tak důležitá. Nevím si rady s tím průměrem (3) a s tím seřazením (4).

Každá rada dobrá, děkuji.

Bod 2 využiješ následně v bodu 4. 
S čím konkrétně si nevíš rady u bodu 3 a 4? 


 

posilám funkci na ten ar. průměr 

program mě ale hází blbost

function soucet(i:integer; var a:Tmat):integer; // funkce pro součet sudých čísel v řádku i
var j,vysledek:integer;
vysledek2:real;
begin
vysledek:=0; // jistota, že je v programu na začátku 0
for j:=1 to n do
vysledek:=vysledek+a[i,j];
vysledek2:=vysledek/n;

procedure TForm1.Button5Click(Sender: TObject); // procedura pro vytvoření nové tabulky
var sirka2,vyska2:integer; // nová šířka a vyska tabulky
begin
m:=StrToInt(edm.Text); 
sg2.RowCount:=m; 
sg2.ColCount:=1
sg2.visible:=True;
sirka2:=sg2.DefaultColWidth; 
vyska2:=sg2.DefaultRowHeight; 
sg2.Width:=sirka2; 
sg2.Height:=m*vyska2+m+4;
for i:=1 to n do // 
sg2.Cells[0,i-1]:=IntToStr(soucet(i,a));