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

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

Дана матрица

ДЯМАК ©   (2006-05-06 17:33:00) 

Уважаемые мастера! МОМОГИТЕ ПЛИЗ! НАПИШИТЕ ПРОГУ В ДЕЛФИ! УМОЛЯЮ!
A(N,N). В  каждой строке поменять местами наибольший и наименьший элементы

---

ДЯМАК   (2006-05-06 19:19:00) [1]

Огромное спасибо за ответ!!!! Правда я уже сам её написал немного разобравшись, но всё равно огромный респект автору!!!

---

begin...end   (2006-05-06 18:10:00) [2]

var
 A: array [1..N, 1..N] of Integer;
 I, J, Min, Max, Temp: Integer;
begin
 for I := Low(A) to High(A) do
 begin
   Min := Low(A[I]);
   Max := Min;
   for J := Succ(Low(A[I])) to High(A[I]) do
     if A[I, Min] > A[I, J] then
       Min := J
     else if A[I, Max] < A[I, J] then
       Max := J;
   if Min <> Max then
   begin
     Temp := A[I, Min];
     A[I, Min] := A[I, Max];
     A[I, Max] := Temp
   end
 end
end

---

Der Nechk@ssoff   (2006-05-06 17:40:00) [3]

А сколько платите?

---

Наверх