В матрице заменить нулями элементы, стоящие в столбцах, где имеются нули

@BOLT · Регистрация: 30.09.2009

Народ помагите кто может.....задача на двумерный массив:В заданном массиве А(n,m) заменить нулями элементы, стоящие в столбцах, где имеются нули.....заранее спасибо!!

@*~<`PIK`>~* · 15.03.2010, 23:27

Вот))

Delphi

var
  Form1: TForm1;
  i,j,k:integer;
  s:string;
  mas:array[1..10,1..10] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s:='';
Randomize;
For i:=1 to 10 do
For j:=1 to 10 do
mas[i,j]:=Random(100);
 
 
For i:=1 to 10 do
begin
For j:=1 to 10 do
s:=s+IntToStr(mas[i,j])+' ';
s:=s+#13;
end;
ShowMessage('Íà÷àëüíàÿ ìàòðèöà:'+#13+s);
s:='';
 
For i:=1 to 10 do
For j:=1 to 10 do
If mas[j,i]=0 then
For k:=1 to 10 do
mas[k,i]:=0;
 
For i:=1 to 10 do
begin
For j:=1 to 10 do
s:=s+IntToStr(mas[i,j])+' ';
s:=s+#13;
end;
ShowMessage('Êîíå÷íàÿ ìàòðèöà:'+#13+s);
 
end;

@Роман Юрьевич · 17.03.2010, 14:13

народ снова к вам за помощью!помогите плиззз:Сформируйте двумерный массив N*N по след.правилу:элементы главной диагонали прировнять к 1 ниже главной диагонали 0 выше -сумма индексов!Заранее спасибо!

@BOLT 0 / 0 / 0 Регистрация: 30.09.2009 Сообщений: 28
		1
	В матрице заменить нулями элементы, стоящие в столбцах, где имеются нули 15.03.2010, 19:24. Показов 1388. Ответов 2 Метки нет (Все метки) Народ помагите кто может.....задача на двумерный массив:В заданном массиве А(n,m) заменить нулями элементы, стоящие в столбцах, где имеются нули.....заранее спасибо!! 0

@Роман Юрьевич 0 / 0 / 0 Регистрация: 16.03.2010 Сообщений: 18
	17.03.2010, 14:13	3
	народ снова к вам за помощью!помогите плиззз:Сформируйте двумерный массив N*N по след.правилу:элементы главной диагонали прировнять к 1 ниже главной диагонали 0 выше -сумма индексов!Заранее спасибо! 0

Опции темы

В матрице заменить нулями элементы, стоящие в столбцах, где имеются нули

Решение