Сформировать из случайных чисел две матрицы 7×7 - Turbo Pascal

Формулировка задачи:

Сформировать из случайных чисел две матрицы 7×7. Если в строках с одинаковыми номерами совпадают хотя бы два элемента на одина-ковых позициях, занести в элемент вектора true, иначе – false.

Решение задачи: «Сформировать из случайных чисел две матрицы 7×7»

Листинг программы

const n=7; W=4;
var
  i, j, k: Integer;
  a, b: array [1..n,1..n] of Integer;
  v: array [1..n] of Boolean;
begin
  Randomize;
  for i:=1 to n do for j:=1 to n do a[i,j]:=Random(10);
  for i:=1 to n do for j:=1 to n do b[i,j]:=Random(10);
  for i:=1 to n do begin
    k:=0; for j:=1 to n do Inc(k,Ord(a[i,j]=b[i,j])); v[i]:=k>=2;
  end;
  WriteLn ('A =','B =':W*n,'V =':W*n);
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:W);
    for j:=1 to n do Write(b[i,j]:W);
    WriteLn (' ',v[i]);
  end;
end.

Объяснение кода листинга программы

В этом коде две матрицы 7×7 заполняются случайными числами. Затем для каждой строки проверяется, есть ли в ней хотя бы две одинаковые цифры (считая булево значение True как 1 и False как 0). Затем выводится на экран содержимое обеих матриц и рядом с ними соответствующая строка булевых значений.