Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

В каждой строке матрицы А(8,12) вместо минимального элемента запи


Михась ©   (2007-04-18 00:05:00) 

В каждой строке матрицы А(8,12) вместо минимального элемента записать 0.

Помогите реализовать
Спасибо


Михась   (2007-04-18 15:22:00) [1]

спасибо,есть над чем подумать


{RASkov}   (2007-04-18 15:14:00) [2]

for N:=Low(A) to High(A) do begin
J:=A[N][Low(A[N])];
for K:= Low(A[N])+1 to High(A[N]) do if A[N]<J then I:=K;
A[N,I]:=0;
end;
Ну что-то в этом духе....


MBo   (2007-04-18 05:15:00) [3]

логика следует из постановки задачи
для каждой строки найти номер минимального элемента
записать вместо него 0
Что вызывает затруднения?


Наверх

Титульная страница Поиск, карта сайта Написать письмо