type
TMatice = array of array of integer;
function vygeneruj(vyska, sirka: integer): TMatice;
var
matice: TMatice;
radek, sloupec: integer;
begin
setlength(matice, vyska, sirka);
for radek := low(matice) to high(matice) do
for sloupec := low(matice[radek]) to high(matice[radek]) do
matice[radek,sloupec] := random(5) + 1;
vygeneruj := matice;
end;
function secti_sloupec(matice: TMatice; sloupec: integer): integer;
var
radek, soucet: integer;
begin
soucet := 0;
for radek := low(matice) to high(matice) do
soucet := soucet + matice[radek,sloupec];
secti_sloupec := soucet;
end;
procedure vypis(matice: TMatice);
var
radek, sloupec: integer;
begin
for radek := low(matice) to high(matice) do
begin
for sloupec := low(matice[radek]) to high(matice[radek]) do
write(matice[radek,sloupec]:3);
writeln;
end;
end;
var
matice: TMatice;
prvni, posledni: integer;
begin
matice := vygeneruj(4, 5);
vypis(matice);
prvni := secti_sloupec(matice, low(matice[0]));
posledni := secti_sloupec(matice, high(matice[0]));
writeln('prvni ', prvni);
writeln('posledni ', posledni);
end.