|
|
Вывод двумерного массива.
|
...Запустить программу>>>>
var
s,m1,n1,m2,n2,x,y,i,k,n:integer;
a:array[1..10,1..10] of integer;
bs: TBrushStyle;
st:string;
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
for i:=1 to 10 do begin
for k:=1 to 10 do begin
a[i,k]:=random(200)+50;
end;end;
with form1.Canvas do begin
for i:=1 to 10 do begin
for k:=1 to 10 do begin
str(a[i,k],st);
TextOut(k*30, i*20, st);
end;end;
end;
end;
|
|
|
