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

[Diunamis]

Помогите , пожалуйста составить процудуру по нахождению номеров колонок двумерного массива С, которые содержат позитивные елементы! ! !
M(номер рядка)=3, N(номер столбца)=5
I=3, J=1

 

[hosm]

Переведите с суржика, подкорректируйте заголовок и ознакомьтесь с правилами раздела, куда попала тема...

 

[Diunamis]

Подскажите в чем ошибка.Программа не работает

procedure TForm1.FormCreate(Sender: TObject);
type
mas=array[1..6,1..3] of real;
const
z:array[0..6,0..3]of string=
(('Масив Q','Колонка1','Колонка2','Колонка3'),
('Рядок1','-2,1','-4,4','0,13'),
('Рядок2','-8,1','15','9,6'),
('Рядок3','5,3','0','15,3'),
('Рядок4','-1,4','3,5','0'),
('Рядок5','13,2','0','23'),
('Рядок6','0,2','1,2','-0,5'));
var
i,j:integer;
Q:mas;
begin
for i:=0 to 6 do
for j:=0 to 3 do
Tabl.Cells[j,i]:=z[i,j];
for i:=1 to 6 do
for j:=1 to 3 do
Q[i,j]:=StrToFloat(Tabl.Cells[j,i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
type
mas=array[1..6,1..3] of real;
var
i,j:integer;
Q:mas;
begin
for i:=1 to 3 do
for j:=1 to 6 do
if Q[i,j]=0 
then
begin
Label3.Caption:=Label3.Caption+'Колонка'+IntToStr(i)+' ';
Label3.Caption:=Label3.Caption+'Номер рядка'+IntToStr(j)+#13;

end;
end;
end.

 

[Dock1100]

И не будет работать.
Q:mas;
у вас идет как ЛОКАЛЬНАЯ переменная, а надо ГЛОБАЛЬНАЯ;
ее надо обявить перед словом implementation, и убрать из процедур.
Выглядит примерно так

 type
mas=array[1..6,1..3] of real;

const
z:array[0..6,0..3]of string=
(('Масив Q','Колонка1','Колонка2','Колонка3'),
('Рядок1','-2,1','-4,4','0,13'),
('Рядок2','-8,1','15','9,6'),
('Рядок3','5,3','0','15,3'),
('Рядок4','-1,4','3,5','0'),
('Рядок5','13,2','0','23'),
('Рядок6','0,2','1,2','-0,5'));

var
Form1: TForm1;
Q:mas;
implementation

{$R *.dfm}

....

 

[vital]

Док, заслуживаешь памятник=)

 

[VahaC]

Вот держи рабочую прогу