Lập matrix 100 số ngẫu nhiên từ 1..10. Tính tổng đường chéo chính

vì matrix 10x10 nên đường chéo chính chó 10 phần tử và vì mọi gái trị của đường chéo chính đều là ngẫu nhiên nên chả có test mà đối chiếu nên sinh 10x10 giá trị cho cả mảng thì nó mất thời gian nên sinh 10 số cho 10 phần tử đường chéo chính là đủ :v

(nếu muốn sinh 100 số luôn thì nói để sửa nhé :)) )

uses crt;
var  s,x,i:integer;
begin
clrscr;
randomize;
s:=0;
for i:=1 to 10 do
begin
 x:=random(11);
 while x=0 do x:=random(11);
 s:=s+x;
end;
write(s);
readln
end.

const n=100;
var a:array[1..N, 1..N] of integer;
i,d:integer;
begin
randomize;
d:=0;
for i:=1 to n do
begin
a[i,i]:=random(10)+1;
d:=d+a[i,i];
end;
writeln(d);
readln;
end.