[nastya1993]

Мне нужно сделать вот такое: сформировать одномерный массив путем деления положительных элементов заданной таблицы на число К вывести полученный массив на экран

Код:

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

unit Unit1;    interface    uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Buttons, StdCtrls;    type  TForm1 = class(TForm)  mmo1: TMemo;  btn1: TButton;  btn2: TBitBtn;  procedure btn1Click(Sender: TObject);  private  { Private declarations }  public  { Public declarations }  end;    var  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.btn1Click(Sender: TObject); const n=10; var mass,A: array[1..n,1..n] of Integer; B: array[1..30]of Integer; K: Integer; i, m, j: Integer; begin  m:= 0; randomize(); mmo1.Lines.Add('K= '); for i:= 0 to n do for j:= 0 to n do begin A[i,j]:= random(100); end; for i:= 0 to n do for j:= 0 to n do begin if(A[i,j] > 0) then begin B[m] := a[i,j] div K; m:= m+1; end;  if (abs(A[i,j])<=k) and (abs(B[i])<=k) then mmo1.Lines.Add(inttostr(A[i,j])); mmo1.lines.Add(inttostr(B[m])) ; end; end; end.

Вывод происходит не правильный. Подскажите ребята плиз...