A suliban pascal programozást tanulunk és találkoztam egy feladattal, amit sehogyan nem tudok megoldani. A feladat lent. Valaki elmagyarázná ezt a feladatot?

program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

var tomb : array of array of byte;

n, m, i, k : byte;

szorzat : integer;

begin

m := 5;

n := 10;

Randomize;

SetLength(tomb, m, n);

for i := 0 to m - 1 do for k := 0 to n - 1 do tomb[i, k] := Random(3);

for i := 0 to m - 1 do

begin

for k := 0 to n - 1 do Write(tomb[i, k]:5);

WriteLn;

end;

WriteLn;

for i := 0 to n - 1 do

begin

szorzat := 1;

for k := 0 to m - 1 do szorzat := szorzat * tomb[k, i];

Write(szorzat:5);

end;

ReadLn;

end.

A többit rád bízom, remélem ennyi elég indulásnak :)

@#3:

Mi tetszik? Ha nem a #6-ban közölt kézenfekvő egyenes utat választod, akkor nyilván minden oszlop értékét számolnod kell, legalább addig, míg ki nem derül, hogy van-e nem maximális eleme. Kiíratnod nem muszáj, az csak bónusz volt SimkoL részéről, meg a jószándék, hogy hagyjon neked is valami jelentéktelen töprengeni valót.

Bár szerintem most is túl messzire ment...

Az az áldott jó szívem...

A program végéről lemaradt a SetLength(tomb, 0, 0); így helyes és szép :)