Question

Задача в Pascal "Квадратная матрица"

Answer 1

Var 
i, j: integer; 
ar: array[1..5, 1..5]of real; 
b: boolean;                                   //объявление переменных
begin 
for i := 1 to 5 do     
for j := 1 to 5 do read(ar[i, j]);       //ввод матрицы
for i := 1 to 5 do 
begin   
b := true;   
for j := 1 to 2 do      
if(ar[i, j] <> ar[i, 5 - j + 1]) then     //проверяем равен ли 1 элемент 1 строки
// последнему элементу 1 строки, 2 элемент 1 строки и 5-1 элемент
//если они неравны то выходим из одного цикла
begin       
b := false;                             //б -ложь значит строка не симметрична                         
break;     
end;   
if(b = true) then write(i, ' ');   //если б -истина выводим номер строки
end;
end.