Консультация с заменой кода для массива.

[eluminat]

нужно из этого как то сделать вот это: Задана целочисленная матрица А размером NxM, Получить массив B, присвоив его к-му элементу значение 0, есои все элементы к-го столбца матрицы нулевые, и значение 1 в противном случае (k=1,2...,M).

делал, делал запутался и хз че вышло помогите разобраться.

procedure TForm1.Button1Click(Sender: TObject);
var i,j,z,k,max:integer; q:real;
begin
randomize;
z:=0;
max:=0;
with stringgrid1 do
for i:=0 to rowcount-1 do
for j:=0 to colcount-1 do begin
z:=round(random(100)+1);
cells[i,j]:=inttostr(z);
if i=j then edit1.Text:=edit1.Text+'  '+inttostr(z);
if max<strtoint(cells[i,j]) then max:=strtoint(cells[i,j]);
end;
panel1.caption:='Минимальный элемент: '+inttostr(max);
with stringgrid1 do
for i:=0 to rowcount-1 do
for j:=0 to colcount-1 do begin
z:=strtoint(cells[i,j]);
if i=j then begin q:=z/max; edit2.text:=edit2.Text+' '+floattostr(q); end;
end;
end;
end.

так наверно более понятно.нужно из этого сделать вот это: Задана целочисленная матрица А размером NxM, Получить массив B, присвоив его к-му элементу значение 0, есои все элементы к-го столбца матрицы нулевые, и значение 1 в противном случае (k=1,2...,M).

честно говоря я запутался очень.

[Stilet]

Дык было уже такое. вроде. Чего поиском не пользуемся?

Вот навскидку:

for i:=0 to RowCount-1 do begin b[i]:=0;
 for j:=0 to ColCount-1 do begin
   cells[i,j]:=IntToStr(z);
   b[i]:=b[i] or byte(z<>0);
 end;
end;

Смысл ясен?

[eluminat]

спс большое оч помогло

[ОДИНОЧЕСТВО В СЕТИ]

вот твой проект с TChart