Массив

[Настенька..Блонди]

Люди выручайте, завтро здавать(((

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


Енто надо htibnm в Delphi !!!!!!!!!!!!!!

[spamer]

А что не получается, вот не понятно???

[StudentPolitech]

Я б написал но только на Си

[Настенька..Блонди]

на делфи надо..

[spamer]

Покажите хоть что вы написали, а то лень все сначала писать.

[Настенька..Блонди]

Вот похожая задачка!!!!

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,n,m,k:integer;
begin{1}
begin
n:=strtoint(edit1.Text)-1;
m:=strtoint(edit2.Text)-1;
i:=0;
while i<=n do
begin{2}
j:=0;
while j<=m do
begin{3}
k:=(strtoint(stringgrid1.Cells[j,i]))-(strtoint(stringgrid1.Cells[j+1,i]));
if k>0 then
begin{4}
if j=m-1 then
begin
stringgrid2.Cells[0,i]:=inttostr(1);
j:=m+1;
end
else
j:=j+1;
end{4}
else
begin{5}
j:=m+1;
end;{5}
end;{3}
i:=i+1;
end;{2}
end;
begin
i:=0;
while i<=n do
begin{2}
j:=0;
while j<=m do
begin{3}
k:=(strtoint(stringgrid1.Cells[j,i]))-(strtoint(stringgrid1.Cells[j+1,i]));
if k<0 then
begin{4}
if j=m-1 then
begin
stringgrid2.Cells[0,i]:=inttostr(0);
j:=m+1;
end
else
j:=j+1;
end{4}
else
begin{5}
j:=m+1;
end;{5}
end;{3}
i:=i+1;
end;{2}
end;
end;{1}

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.ColCount:=strtoint(edit 1.Text);
StringGrid1.RowCount:=strtoint(edit 2.Text);
StringGrid2.RowCount:=strtoint(edit 2.Text);
end;

end.

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

// если все значения к-ого столбца равны 0 функция  возвращает 0 если нет то 1;
function isNull(var m:integer;n:integer;k:integer;a:array[1..n,1..m] of integer):integer;
var j:integer;
begin
result:=0;
for j:=1 to n do
if a[j,k]<> 0 then result:=1;
end;