[Sempai]

Необходима помощь в написании программы : тема процедура .
Найти количество положительных элементов расположенных за первым минимальным элементом матриц A[N,M] и B[K,L]. спасибо заранее .
п.с желательно код как можно проще плз

[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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

type   TDynIntMatrix = Array Of Array Of Integer;   function GetPositiveNum(A : TDynIntMatrix) : Integer; var   I, J : Integer;   mI, mJ : Integer; begin   Result := 0;     // Top-Left item - current min item   mI := Low(A);   mJ := Low(A[mI]);     // Search for min item   For I := Low(A) To High(A) Do     For J := Low(A[i]) To High(A[i]) Do       If A[I,J] < A[mI,mJ] Then         Begin           mI := I;           mJ := J;         End;     // Cont positive items   For I := mI To High(A) Do     For J := Low(A[i]) To High(A[i]) Do       Begin         If (I = mI) And (J <= mJ) Then Continue; // Before min item         If A[I,J] > 0 Then Inc(Result); // positive item - increase counter       End; end;   procedure RandomInitArray(var A : TDynIntMatrix; AI, AJ : Integer); var   I, J : Integer; begin   SetLength(A,AI,AJ);   For I := Low(A) To High(A) Do     For J := Low(A[i]) To High(A[i]) Do       A[i,J] := Random(100)-50; // Generate random value -50..49 end;   procedure TForm1.Button1Click(Sender: TObject); var   M1 : TDynIntMatrix;   M2 : TDynIntMatrix;     S : String; begin   RandomInitArray(M1,5,10);   RandomInitArray(M2,10,5);     S := 'Positive item after min item count.'#13#10;   S := S + Format('M1 : %d'#13#10,[GetPositiveNum(M1)]);   S := S + Format('M2 : %d',[GetPositiveNum(M2)]);     ShowMessage(S); end;

[Sempai]

благодарю