[somepower]

Помогите сделать программу, если можно , хотел бы получить подробный код или архив с программой.
Задание:
Все элементы с наибольшими значениями в матрице 9х9 замените нулями, если эти элементы не принадлежат первой и последней строкам.
Среда программирования: Delphi 7

[lmikle]

Что значит "элементы с наибольшими значениями"? Max(Aij)?

[somepower]

я уточнил этот вопрос, нужно заменить первые 10 элементов с наибольшими значениями

[lmikle]

Еще раз. Что такое "элемент с наибольшим значением"?
Дай строгое определение. В т.ч. области, в которой он наибольший.
Опять же, "первые 10" первые в какой области? В строке, в колонке, во всей матрице. И что делать если их всего меньше 10 или больше.

Учитесь правильной постановке задач.

[somepower]

От максимального значения , 10 элементов по убывающей (включительно наибольшее значение) , во всей матрице 9х9, если их меньше, то выводить на экран сообщение "Не хватает элементов для выполнения задачи"

[lmikle]

Ну, полный код писать лень.
Так что я тебе собственно функции напишу, а уж визуальную обвязку сделаешь сам.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

type   TMatrixIndex = record     C, R : Integer;   end;   var   A : Array [1..9,1..9] Of Integer;   // возвращает координаты макс элемента function GetMaxElementCR : TMatrixIndex var   I, J : Integer; begin   Result.C := 1;   Result.R := 1;   For I := 1 To 9 Do     For J := 1 To 9 Do       If A[I,J] > A[Result.C,Result.R] Then         Begin            Result.C := I;            Result.R := J;         End; end;   // Делает 10 замен макс элемента на 0 function ReplaceMaxbyZero : Boolean; var   I : Integer;   Idx : TMatrixIndex; begin   Result := True;   For I := 1 To 10 Do     Begin       Idx := GetMaxElementCR;       Result := A[Idx.C,Idx.R] > 0;       If Result         Then  A[Idx.C,Idx.R] := 0         Else Break;     End; end;

Функция ReplaceMaxbyZero вернет True если были сделаны все 10 замен или False, если меньше.

ЗЫ. Там где-то в начале было что-то про исключение 1й и последний строк из замены. Если это нужно, то тогда строка 17 должна выглядеть так:

Код:

1	For J := 2 To 8 Do

[somepower]

Понял, спасибо