Двумерный массив

[Дмитрий12345678910]

Дан двумерный массив D(9,9) со случайными целыми числами в интервале [-30,30].Из столбцов кратных трем,создать одномерный массив.(помогите пожалуйста.Нужен алгоритм и программа)

[ruN00b]

Function rand(a,b:integer):integer; //random из 2 чисел
Begin
Result:=random(b-a+1)+a;
End;

Var
D:array[1..9,1..9]of integer;
G:array[1..27]of integer;
X,y:integer;
Begin
For x:=1 to 9 do begin
For y:=1 to 9 do begin
D[x,y]:=rand(-30,30); //генерируем матрицу
Write(d[x,y]:4); //выводим на экран
End;
Writeln;
End;
For y:=1 to 3 do begin
For x:=1 to 9 do begin
G[x+y*3]:=d[x,y*3]; //формируем массив
Writeln(g[x+y*3]);
End;
Writeln;
End;
Readln;
End.

[Serge_Bliznykov]

ruN00b, хорошая попытка!

Забыли randomize; в начале программы (иницилизация ГПСЧ)

ну и с индексацией в одномерном массиве G напутали
смотрите, самый первый элемент, при y=1 и x=1 в G индекс будет G[1+1*3 ] -> G[4]
ну и остальные индексы тоже смещены аналогично...
Сами поправите или подсказать?

[ruN00b]

g[x+y*3]:=d[x,y*3]
меняем на
g[x+y*3-3]:=d[x,y*3];

Насчет рандомайза, да, забыл, у меня и так работает на ХЕ3