Перемножение одномерного массива на двумерный

[daget]

Помогите пожалуйста написать цикл, а именно размер матрицы двумерной пусть будет 3*3 а одномерной 45, так вот собственно какой мне нужен цикл, 1-ю строку мы умножаем на 1 элемент одномерного массива затем с другими строками также, но когда он перемножет 3-ю строку, нужно чтобы он переходил на 1 строку и умножался на 4 элемент одномерного массива.

[Fantazerishka]

For i=1 to 45 do
For u=1 to 3 do
For j=1 to 3 do begin
mas(i):=dvu(u,j)*odn(i);
if u=3 then begin u:=1 end;
end; end; end;

Примерно так не проверял...

[daget]

так не получается

g:=0; k:=1;
While (g<=length(memo1.text)) do
begin

for i:=1 to 5 do
  for j:= 1 to 5 do
   begin
ass[k]:= AsciiVal[g]* a[i,j]; k:=k+1;
g:=g+1;

это мой код поправте ктонить пожалуйста

[daget]

Мне сказали как-то через repeat

[IT-man]

i:=1;
repeat
For u=1 to 3 do
For j=1 to 3 do begin
mas[i]:=mas[i]+dvu[u,j]*odn[i];
inc(i);
until i>45;