Pascal ABC. Для двумерного массива 9*9 найдите элемент, который расположен "по центру" (т. е. от него до левого края и до правого края, до верхнего края и до нижнего края одинаковое расстояние). Какая у него координата?

Var i, j, x, y: integer;

a: array [1 ... 9,1 ... 9] of integer;

begin

//заполнение массива данными

for i:=1 to 9 do

for j:=1 to 9 do

begin

a[i, j]: = random (100);

end;

//вывод массива

for i:=1 to 9 do

begin

for j:=1 to 9 do

begin

write (a[i, j], ' ');

end;

writeln ();

end;

//определение координаты x

x:=round (9/2) + 1;

//определение координаты y

y:=round (9/2) + 1;

//вывод значения массива, расположенного по координатам x и y

writeln (a[x, y], ' - центр двумерного массива c координатами x = ', x, ', y = ', y);

end.