[nastya1993]

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

Код:

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.

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