Задана матрица вещественных чисел А размерности n×n - Turbo Pascal

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

Задана матрица вещественных чисел А размерности n×n. Поменять местами элементы, расположенные над главной и побочной диагоналями с эле- ментами, расположенными под ними ( первую строку с последней, вторую с предпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с клавиатуры.

Код к задаче: «Задана матрица вещественных чисел А размерности n×n - Turbo Pascal»

textual
for i := 1 to n div 2 do
  for j := i+1 to n-i do begin
    t:=A[i,j];
    A[i,j]:=A[n-i+1,j];
    A[n-i+1,j]:=t;
  end;

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ