По массиву A получить массив b

[Viwwna]

Буду благодарна кто наиболее подробно осветит решение нижеследующей задачи. СПАСИБО ЗАРАНЕЕ


var A: array [1..4,1..5] of integer;
b: array [1..4] of boolean;
По массиву A получить массив b, присвоив его k-му элементу значение true, если k-ая строка массива A симметрична, и значение false иначе.
Указание: определите булевскую функцию f(i), проверяющую, является ли i-ая строка матрицы симметричной.

[Son Of Pain]

Определи функцию ) Проверку симметричности проще всего делать так -

flag:=true;
for cnt:=1 to n div 2 do
   if a[i, cnt] <> a[i, n-cnt+1] then flag:=false;

Если после выполнения цикла flag будет равен true - строка симметрична. Тут n - количество элементов в строке.