Дана матрица

← →
ДЯМАК © (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

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

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