Форум: "Начинающим";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];

Вниз

Дана матрица   Найти похожие ветки 

← →
ДЯМАК ©   (2006-05-06 17:33) [0]

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

---

← →
Der Nechk@ssoff ©   (2006-05-06 17:40) [1]

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

---

← →
begin...end ©   (2006-05-06 18:10) [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

---

← →
ДЯМАК ©   (2006-05-06 19:19) [3]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.014 c