Ох уж эти матрицы! - Помощь студентам

vika18 · 25.03.2013, 19:29

Не могу решить задачу

.Спасайте)

Mad_Cat · 25.03.2013, 20:11

Код:

edit.text:='';
for i:=1 to m do
begin
c:=0;
for j:=1 to n do
if a[j,i]>0 then c:=c+1;
edit.text:=edit.text+inttostr(i)+'  '+inttostr(c);
end;

25.03.2013, 20:11	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `edit.text:=''; for i:=1 to m do begin c:=0; for j:=1 to n do if a[j,i]>0 then c:=c+1; edit.text:=edit.text+inttostr(i)+' '+inttostr(c); end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ох уж эти матрицы!!! Выручите делетанта!	vajiera17	C++ Builder	2	19.05.2011 22:20
Ох эти формы	firephenix	Общие вопросы Delphi	5	02.03.2011 16:55
Ох уж эти прерывания	evgenen	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	2	06.01.2011 01:10
Ох уж эти OR, AND, XOR!	NSV	Свободное общение	6	27.03.2010 10:38
ух.....эти массивы	aiktz	Помощь студентам	1	15.03.2009 17:33