Нужно найти среднее арифметическое побочной диагонали матрицы 4*4. Алгоритм вроде правильный, но как то не так считает.
for i:=1 to n do
for j:=1 to n do begin
if ((j = 4) AND (i = 1)) OR ((j = 3) AND (i = 2)) OR ((j = 2) AND (i = 3)) OR ((j = 1) AND (i = 4)) then
k := k+1;
sum := sum + matrix[i,j];
end;
end;
Ср. арифм. = sum/k