Viết ct pascal Lập matrix 100 số ngẫu nhiên từ 1..10. Tính tổng đường chéo chính (mảng 2 chiều)

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.

uses crt;

const
  n = 10;

var
  matrix: array[1..n, 1..n] of integer;
  i, x: integer;

begin
  randomize;
  x := 0;

  for i := 1 to n do
    for matrix[i, i] := random(10) + 1 downto 1 do
      if matrix[i, i] = 1 then
        x := x + matrix[i, i];

  writeln('Tong cac phan tu tren duong cheo chinh la: ', x);

  readln;
end.

Đáp án:

Giải thích các bước giải: